couriose with args

[Dmi]

Just for fun :-)

Code Select Expand

(define-macro (ttt1 a) (eval a))
(define (ttt) (ttt1 (args)))
(ttt)
> ()
(ttt 1)
> ()

;The workaround:
(define (ttt) (let (x (args)) (ttt1 x))
(ttt 1)
> (1)