Browse Source

experimental funcl modules

master
Julian Noble 2 years ago
parent
commit
b72134de94
  1. 4
      src/modules/funcl-0.1.tm

4
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 {
}

Loading…
Cancel
Save