From 482d8f970b2b77a8c4da7f9bbdbdd18eab186cbf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Nov 1990 10:10:35 +0000 Subject: [PATCH] Fix stupid think-o from last change. --- v7/src/runtime/input.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm index 78566eed7..6fd79ac76 100644 --- a/v7/src/runtime/input.scm +++ b/v7/src/runtime/input.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 14.10 1990/11/09 08:43:53 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 14.11 1990/11/09 10:10:35 cph Rel $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -132,7 +132,7 @@ MIT in each case. |# (define (default-operation/read-string port delimiters) (let ((peek-char (input-port/operation/peek-char port)) (discard-char (input-port/operation/discard-char port))) - (let ((peek-char (let loop () (or (peek-char port) (loop))))) + (let ((peek-char (lambda () (let loop () (or (peek-char port) (loop)))))) (let ((char (peek-char))) (if (eof-object? char) char -- 2.25.1