[plt-scheme] phase question

I found the same solution just a few moments ago. :)
It took me a couple of hours though. ):
Nevertheless many thanks, (:
Jos

----- Original Message ----- 
From: "Matthew Flatt" <mflatt at cs.utah.edu>
To: "Jos Koot" <jos.koot at telefonica.net>
Cc: <plt-scheme at list.cs.brown.edu>
Sent: Friday, July 11, 2008 3:28 PM
Subject: Re: [plt-scheme] phase question


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