From 6a68b60f92eeffd18741444d2f66a6493229529f Mon Sep 17 00:00:00 2001 From: Masafumi Max NAKANE Date: Fri, 3 Jan 1997 00:37:20 +0000 Subject: New port, scsh: A Unix shell embedded into Scheme, with access to all Posix calls Reviewed by: max Submitted by: cracauer@cons.org "Martin Cracauer" --- shells/scsh/files/patch-ab | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 shells/scsh/files/patch-ab (limited to 'shells/scsh/files/patch-ab') diff --git a/shells/scsh/files/patch-ab b/shells/scsh/files/patch-ab new file mode 100644 index 000000000000..a75d1e93ac41 --- /dev/null +++ b/shells/scsh/files/patch-ab @@ -0,0 +1,19 @@ +*** 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 '())) -- cgit v1.2.3