mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-01 22:05:08 +00:00
6a68b60f92
A Unix shell embedded into Scheme, with access to all Posix calls Reviewed by: max Submitted by: cracauer@cons.org "Martin Cracauer"
20 lines
526 B
Plaintext
20 lines
526 B
Plaintext
*** 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 '()))
|