Code: Select all
(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)
Code: Select all
(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)