1 files changed, 4 insertions, 4 deletions
diff --git a/Macro.scm b/Macro.scm
index 911098b..2d85050 100644
--- a/Macro.scm
+++ b/Macro.scm
@@ -432,10 +432,10 @@
 (define-syntax @print
   (syntax-rules (quote)
     ((_ '?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (newline)))
     ((_ ?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (display " => ")
 	    (let ((x ?arg))
 	      (write x)
@@ -452,10 +452,10 @@
 (define-syntax @pprint
   (syntax-rules (quote)
     ((_ '?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (newline)))
     ((_ ?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (display " => ")
 	    (let ((x ?arg))
 	      (pprint x)