From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:06:40 -0800
Subject: New upstream version 3b5

---
 qp.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 qp.scm

(limited to 'qp.scm')

diff --git a/qp.scm b/qp.scm
old mode 100644
new mode 100755
index b772d89..5b5a493
--- a/qp.scm
+++ b/qp.scm
@@ -103,7 +103,9 @@
 	      (display #\")
 	      ((lambda (ans) (display #\") ans)
 	       (+ 2 (qp-string obj (- room 2)))))
-	     ((symbol? obj) (qp-string (symbol->string obj) room))
+	     ((symbol? obj)
+	      (display obj)
+	      (string-length (symbol->string obj)))
 	     ((input-port? obj) (display "#[input]") 8)
 	     ((output-port? obj) (display "#[output]") 9)
 	     ((procedure? obj) (display "#[proc]") 7)
@@ -132,8 +134,7 @@
       (lambda objs
 	(cond
 	 ((not *qp-width*)
-	  (for-each (lambda (x) (write x) (display #\space)) objs)
-	  (newline))
+	  (for-each (lambda (x) (write x) (display #\space)) objs))
 	 ((= 0 *qp-width*)
 	  (for-each (lambda (x)
 		      (if (procedure? x) (display "#[proc]") (write x))
-- 
cgit v1.2.3