From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Jan 2017 00:11:44 +0000 (-0800)
Subject: Fix incorrect indentation.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~114
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=642b501e590847a17abf40672cf5bcf5a79bc388;p=mit-scheme.git

Fix incorrect indentation.
---

diff --git a/src/runtime/infutl.scm b/src/runtime/infutl.scm
index a6ccf0482..2facad268 100644
--- a/src/runtime/infutl.scm
+++ b/src/runtime/infutl.scm
@@ -506,9 +506,9 @@ USA.
 
     (define (short-substring-move! s1 start1 end1 s2 start2)
       (do ((i1 start1 (fix:+ i1 1))
-    	   (i2 start2 (fix:+ i2 1)))
-    	  ((fix:= i1 end1))
-    	(string-set! s2 i2 (string-ref s1 i1))))
+	   (i2 start2 (fix:+ i2 1)))
+	  ((fix:= i1 end1))
+	(string-set! s2 i2 (string-ref s1 i1))))
 
     (let parse-command ((bp 0) (cp 0) (ip 0) (ip-end 0)
 			       (buffer (make-string buffer-size))