summaryrefslogtreecommitdiffstats
path: root/prec.scm
diff options
context:
space:
mode:
Diffstat (limited to 'prec.scm')
-rw-r--r--prec.scm14
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)