From 642b501e590847a17abf40672cf5bcf5a79bc388 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 17 Jan 2017 16:11:44 -0800 Subject: [PATCH] Fix incorrect indentation. --- src/runtime/infutl.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.25.1