summaryrefslogtreecommitdiffstats
path: root/Macro.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commitc7d035ae1a729232579a0fe41ed5affa131d3623 (patch)
treefb387f7c2a8e01cf603d4c75fbbaa68f711df986 /Macro.scm
parentdeda2c0fd8689349fea2a900199a76ff7ecb319e (diff)
downloadscm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz
scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'Macro.scm')
-rw-r--r--Macro.scm8
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)