From d79eab3848dccaf433ff3ec7c4bebf939a123790 Mon Sep 17 00:00:00 2001 From: Jesse McDonald Date: Thu, 8 Dec 2011 17:12:14 -0600 Subject: [PATCH] For vectors, spaces come before 2nd-Nth values; #(1 2 3) vs. #(12 3 ). --- libcompiler/writer.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libcompiler/writer.scm b/libcompiler/writer.scm index 4f17345..2d0f17b 100644 --- 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 "()")]