From c7d035ae1a729232579a0fe41ed5affa131d3623 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:27 -0800 Subject: Import Upstream version 5d9 --- Macro.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Macro.scm') 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) -- cgit v1.2.3