diff options
author | Masafumi Max NAKANE <max@FreeBSD.org> | 1997-01-03 00:37:20 +0000 |
---|---|---|
committer | Masafumi Max NAKANE <max@FreeBSD.org> | 1997-01-03 00:37:20 +0000 |
commit | 6a68b60f92eeffd18741444d2f66a6493229529f (patch) | |
tree | 6e0f3e66e904a53856b54d94c65c0f99f33d04bf /shells/scsh/files/patch-ab | |
parent | Renaming the PKIGNAME, etlfnot-noncjk -> etlfonts-noncjk. (diff) |
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"
Notes
Notes:
svn path=/head/; revision=5173
Diffstat (limited to 'shells/scsh/files/patch-ab')
-rw-r--r-- | shells/scsh/files/patch-ab | 19 |
1 files changed, 19 insertions, 0 deletions
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 '())) |