Friedrich Dominicus  <frido@q-software-solutions.com.NO-spam> wrote:
+---------------
| rpw3@rigden.engr.sgi.com (Rob Warnock) writes:
| > Hmmm...  Which version of DrScheme/MzScheme are you using?
| 
| I'm having verson 102 here on a Linux Box. ...
| I do not get any form of expansion. 
| (define-macro my-when
|   (lambda (test . body)
|   `(if ,test (begin ,@body))))
| (expand-defmacro '(my-when (< 1 2) "True")) -> (my-when (< 1 2) "True")
+---------------

All I can suggest is that maybe it's a bug in v.102.
Your example works fine for me with v.101 (on SGI's Irix)
and even with ancient v.51 (on FreeBSD):

	> (expand-defmacro '(my-when (< 1 2) "True"))
	(#%if (< 1 2) (#%begin "True"))
	> 

You might want to try using v.103, and if that doesn't work, then
send them a bug report <URL:http://www.cs.rice.edu/CS/PLT/Bugs/>
or <URL:mailto:plt-bugs@cs.rice.edu>.


-Rob

-----
Rob Warnock, 31-2-510		rpw3@sgi.com
Network Engineering		http://reality.sgi.com/rpw3/
Silicon Graphics, Inc.		Phone: 650-933-1673
1600 Amphitheatre Pkwy.		PP-ASEL-IA
Mountain View, CA  94043