<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16788" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Courier New" size=2>See below:</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>#lang scheme<BR>(define-syntax (x
stx)<BR> (syntax-case stx ()<BR> ((_ y)<BR> (let ((x
(identifier-binding #'y)))<BR>
(cond<BR> ((list? x)
#''module)<BR> ((not x)
#''top)<BR> ((eq? x 'lexical)
#''lexical)<BR> (else #''unexpected))))))<BR>(x b)
; --> #f <== I expected `module' ???<BR>(define b 3)<BR>(x b) ;
--> module</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Thanks, Jos</DIV>
<DIV><BR></DIV></FONT></BODY></HTML>