From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 22:36:58 +0000 (-0700)
Subject: microcode/makegen/makegen.scm: Revert recent change.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db1fe350b547a5db9e4928b86ec314015c25a736;p=mit-scheme.git

microcode/makegen/makegen.scm: Revert recent change.

9.2 has a different write-string.  Use the deprecated write-substring
just a little longer.
---

diff --git a/src/microcode/makegen/makegen.scm b/src/microcode/makegen/makegen.scm
index 24770606b..c12246011 100644
--- a/src/microcode/makegen/makegen.scm
+++ b/src/microcode/makegen/makegen.scm
@@ -188,7 +188,7 @@ USA.
 	  (let ((n (read-substring! buffer 0 4096 input)))
 	    (if (> n 0)
 		(begin
-		  (write-string buffer output 0 n)
+		  (write-substring buffer 0 n output)
 		  (loop)))))))))
 
 (define (maybe-update-dependencies deps-filename source-files)