experimental funcl modules

src/modules/funcl-0.1.tm

@@ -226,6 +226,7 @@ namespace eval funcl {
     #e.g  for n=1  f a b =  f(a(b))
     #e.g for n=2, e f a b =  e(f(a b))
     proc o_of_n {n args} {
+        puts stdout "o_of_n  '$args'"
         if {$n != 1} {
             error "o_of_n only implemented for 1 sub-funcl"
         }
@@ -249,6 +250,7 @@ namespace eval funcl {
         set comp $endfunc
         set revlist [lreverse [lrange $args 0 end-1]]
         foreach cmdlist $revlist {
+            puts stderr "o_of_n >>-- $cmdlist"
             if {([llength $cmdlist] == 1) && [arg_is_script_shaped [lindex $cmdlist 0]]} {
                 set is_script 1
                 set script [lindex $cmdlist 0]
@@ -317,4 +319,4 @@ namespace eval funcl {
 }    
 
  
- 
+