9 lines
139 B
Text
9 lines
139 B
Text
|
(define varargs-func
|
||
|
|
A -> (print A))
|
||
|
|
|
||
|
|
(define varargs
|
||
|
|
[varargs | Args] -> [varargs-func [list | Args]]
|
||
|
|
A -> A)
|
||
|
|
|
||
|
|
(sugar in varargs 1)
|