Fix whitespace.

diff --git a/src/runtime/srfi-1.scm b/src/runtime/srfi-1.scm
index 543df098c44367377f94b0a46eedaa6990b5f0ca..f7ac723a2d7b3a02957023fbc094ac69b7bd8900 100644 (file)
--- a/src/runtime/srfi-1.scm
+++ b/src/runtime/srfi-1.scm
@@ -893,7 +893,7 @@ USA.
   (reduce (lambda (lis ans)
            ;; Splice new elts of LIS onto the front of ANS.
            (cond ((null? lis) ans)     ; Don't copy any lists
-                 ((null? ans) lis)     ; if we don't have to.
+                 ((null? ans) lis)     ; if we don't have to.
                  ((eq? lis ans) ans)
                  (else
                   (pair-fold (lambda (pair ans)