<!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.16414" name=GENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=#ffffff> <DIV>Oops, the contra-example should read:</DIV> <DIV dir=ltr> </DIV> <DIV dir=ltr>(require (lib "etc.ss"))</DIV> <DIV> </DIV> <DIV dir=ltr>(define-syntax my-define<BR> (syntax-rules ()<BR>  ((my-define (name . args) . body) (my-define name (lambda args . body)))<BR>  ((my-define var value)<BR>   (define var ; <== correction<BR>    (begin<BR>     (printf "my-define ~a status is ~s~n" 'var<BR>      (if (namespace-defined? 'var) 'defined 'undefined))<BR>     value)))))</DIV> <DIV> </DIV> <DIV dir=ltr>(if (read) (namespace-set-variable-value! 'b 2))<BR>(my-define b 2)</DIV> <DIV dir=ltr></DIV> <DIV dir=ltr> </DIV> <DIV dir=ltr>Jos Koot</DIV></BODY></HTML>