blob: cd20dc9086ea692b2ef1fb5b703eb88fd51f39a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$NetBSD: patch-ab,v 1.2 1998/08/07 11:13:55 agc Exp $
*** env/command.scm.original Tue Nov 26 15:59:38 1996
--- env/command.scm Tue Nov 26 15:59:46 1996
***************
*** 546,552 ****
((char=? (string-ref line 0) #\n) #f)
(else (loop count)))))))
! (define *y-or-n-eof-count* 100)
(define (read-line port)
(let loop ((l '()))
--- 546,552 ----
((char=? (string-ref line 0) #\n) #f)
(else (loop count)))))))
! (define *y-or-n-eof-count* 0)
(define (read-line port)
(let loop ((l '()))
|