wisp-cvs

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv2937/modules

Modified Files:
	phases.wim 
Log Message:
Fixed the nested unquoting of the |phase| macro.

Index: phases.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/phases.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- phases.wim	4 Sep 2002 14:29:42 -0000	1.8
+++ phases.wim	7 Sep 2002 21:49:24 -0000	1.9
@@ -12,7 +12,7 @@
 
 (defmacro (phase name . code)
   `(begin
-     (print "$,(unquote name) ... ")
+     (print (string-append ,name " ... "))
      (try
        (hold (begin
                ,@code)