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 24770606bd411592529dfd17abd8169341ce22e3..c12246011a8d226614992943825040a4b942db0b 100644 (file)
--- 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)