| 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. |
|