From b72134de9483edd5c5dc72d33eabb72b02bcf8a7 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Thu, 22 Jun 2023 05:57:18 +1000
Subject: [PATCH] experimental funcl modules

---
 src/modules/funcl-0.1.tm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/modules/funcl-0.1.tm b/src/modules/funcl-0.1.tm
index 350e65c..2ee1ef5 100644
--- a/src/modules/funcl-0.1.tm
+++ b/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 {
 }    
 
  
- 
\ No newline at end of file
+