From 57c4e3f77ffcc5e4f01575e99909de158baf0c3e Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Sat, 10 Nov 1990 00:32:55 +0000 Subject: [PATCH] Fix braino in change making INPUT-BUFFER/READ-UNTIL-DELIMITER a linear time algorithm. --- v7/src/runtime/io.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm index dea94ea74..4a51dd482 100644 --- 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) -- 2.25.1