diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
| commit | c7d035ae1a729232579a0fe41ed5affa131d3623 (patch) | |
| tree | fb387f7c2a8e01cf603d4c75fbbaa68f711df986 /Macro.scm | |
| parent | deda2c0fd8689349fea2a900199a76ff7ecb319e (diff) | |
| download | scm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip | |
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'Macro.scm')
| -rw-r--r-- | Macro.scm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) |