For vectors, spaces come before 2nd-Nth values; #(1 2 3) vs. #(12 3 ).

2011-12-08 17:12:14 -06:00 · 2011-12-08 17:12:14 -06:00 · d79eab3848
parent f3458173c4
commit d79eab3848
1 changed files with 2 additions and 2 deletions
--- a/libcompiler/writer.scm
+++ b/libcompiler/writer.scm
@ -233,8 +233,8 @@
       (unless (zero? (vector-length value))
         (write-rla-val (vector-ref value 0)))
       (for ([i (in-range 1 (vector-length value))])
-         (write-rla-val (vector-ref value i))
-         (write-char #\Space))
+         (write-char #\Space)
+         (write-rla-val (vector-ref value i)))
       (write-string ")")]
    [(null? value)
       (write-string "()")]