[plt-scheme] chaining module begin

At Wed, 13 Oct 2004 17:47:24 -0400, "Mike T. Machenry" wrote:
> (module survey mzscheme
>   
>   (provide (rename module-begin #%module-begin)
> 	   (all-from-except mzscheme #%module-begin))
>   
>   (define-syntax (module-begin stx)
>     (syntax-case stx (control pages)
>       [(_ body ... )
>        (let ((s #`(#%module-begin
> 		   body ...)))
> 	 (datum->syntax-object s (syntax-e s) s))]))
                               ^              ^
                               |              |

Both should be `stx' (and again in the second module).

Matthew