couriose with args

Notices and updates
Locked
Dmi
Posts: 408
Joined: Sat Jun 04, 2005 4:16 pm
Location: Russia
Contact:

couriose with args

Post by Dmi »

Just for fun :-)

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)
WBR, Dmi

Locked