| From: Jon Rafkind (workmin at ccs.neu.edu) Date: Sat Sep 16 23:10:23 EDT 2006 |
|
Im probably missing something basic but why doesn't the following
replace the first argument to blah with 'boo? I sort of think it is but
then the printf never happens.
(define-syntax foo
(syntax-rules ()
((_ x ...)
(printf "You passed in ~a\n" (car (list 'x ...))))))
(define-syntax blah
(syntax-rules ()
((_ first x ...)
(with-syntax ((f1 (datum->syntax-object #'first 'boo #'first)))
#'(foo f1 x ...)))))
#; (foo 1 2 3)
(blah q w e)
| Posted on the users mailing list. |
|