From 5bea21e81ed516440e34e480f2c33ca41aa8c597 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:36 -0800
Subject: Import Upstream version 3a4

---
 schmooz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'schmooz.scm')

diff --git a/schmooz.scm b/schmooz.scm
index 9755260..75ddfa7 100644
--- a/schmooz.scm
+++ b/schmooz.scm
@@ -42,7 +42,7 @@
 
 (define qreport
   (lambda args
-    (for-each (lambda (x) (write x) (display #\ )) args)
+    (for-each (lambda (x) (write x) (display #\space)) args)
     (newline)))
 
 ;;; This allows us to test without generating files
@@ -65,7 +65,7 @@
 	     ((> 8 j)
 	      (do ((i j (- i 1)))
 		  ((>= 0 i))
-		(display #\  *derived-txi*)))
+		(display #\space *derived-txi*)))
 	   (display #\	 *derived-txi*))))
   (for-each (lambda (a)
 	      (cond ((symbol? a)
-- 
cgit v1.2.3