21 lines
231 B
Plaintext
21 lines
231 B
Plaintext
|
fn set [c t f]{
|
||
|
|
if $c {
|
||
|
|
put $t
|
||
|
|
} else {
|
||
|
|
put $f
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
fn mset [c t f]{
|
||
|
|
explode (set $c $t $f)
|
||
|
|
}
|
||
|
|
|
||
|
|
fn call [c t f @argv]{
|
||
|
|
local:v = (set $c $t $f)
|
||
|
|
if (is (kind-of $v) fn) {
|
||
|
|
$v $@argv
|
||
|
|
} else {
|
||
|
|
put $v
|
||
|
|
}
|
||
|
|
}
|