From: Matthew Flatt (mflatt at cs.utah.edu) Date: Fri Jul 11 09:28:06 EDT 2008 |
|
At Thu, 10 Jul 2008 16:30:12 +0200, "Jos Koot" wrote: > (define-syntax (declare-tag stx) > (syntax-case stx () > ((_ tag) > (begin (register-tag #'tag) #'(void))))) Change the last line above to #'(begin-for-syntax (register-tag #'tag))))) See also section 3 of http://www.cs.utah.edu/plt/publications/macromod.pdf Matthew
Posted on the users mailing list. |
|