Import Upstream version 3a4upstream/3a4

1 files changed, 7 insertions, 7 deletions

diff --git a/prec.scm b/prec.scm
index 02b7136..c0b0d7f 100644
--- a/prec.scm
+++ b/prec.scm
@@ -81,13 +81,13 @@
   (do ((j (+ -1 tok:column) (+ -8 j)))
       ((> 8 j)
        (do ((i j (+ -1 i)))
-	   ((>= 0 i))
-	 (display #\ )))
-    (display slib:tab))
-  (display "^ ")
-  (newline)
-  (for-each (lambda (x) (write x) (display #\ )) msgs)
-  (newline))
+	   ((>= 0 i)
+	    (display "^ ")
+	    (newline)
+	    (for-each (lambda (x) (write x) (display #\space)) msgs)
+	    (newline))
+	 (display #\space)))
+    (display slib:tab)))
 
 ;; Structure of lexical records.
 (define tok:make-rec cons)