Fix braino in change making INPUT-BUFFER/READ-UNTIL-DELIMITER a linear

time algorithm.

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index dea94ea74b4f9b28812f0f798c7a5bae6144a0cc..4a51dd482e8369d41a62a4bc76227b5ed7ba5f4f 100644 (file)
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.12 1990/11/09 21:31:56 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.13 1990/11/10 00:32:55 arthur Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -659,7 +659,7 @@ MIT in each case. |#
                      (let ((head
                             (substring string start-index delimiter-index)))
                        (set-input-buffer/start-index! buffer delimiter-index)
-                       head)
+                       (apply string-append (reverse (cons head buffers))))
                      (let ((head (substring string start-index end-index)))
                        (set-input-buffer/start-index! buffer end-index)
                        (if (input-buffer/fill* buffer)