13 lines
371 B
Text
13 lines
371 B
Text
$NetBSD: patch-ae,v 1.5 2003/06/26 14:51:01 dillo Exp $
|
|
|
|
--- scheme/env/command.scm.orig Thu Jan 11 16:05:04 2001
|
|
+++ scheme/env/command.scm
|
|
@@ -422,7 +422,7 @@
|
|
((char=? (string-ref line 0) #\n) #f)
|
|
(else (loop count)))))))
|
|
|
|
-(define *y-or-n-eof-count* 100)
|
|
+(define *y-or-n-eof-count* 0)
|
|
|
|
(define (read-line port)
|
|
(let loop ((l '()))
|