scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamed string-filter to make-string-port-filter and char-filter to 

make-char-port-filter to avoid a name clash with SRFI-13/14.
This commit is contained in:
mainzelm 2003-04-14 09:34:55 +00:00
parent 0c61d18779
commit 87632c785e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/scsh-interfaces.scm
View File

@ -597,8 +597,8 @@
run/sexps* run/sexps*
run/strings* run/strings*
char-filter make-char-port-filter
string-filter)) make-string-port-filter))
(define-interface scsh-version-interface (define-interface scsh-version-interface

4
scsh/scsh.scm
View File

@ -887,7 +887,7 @@
;; Loop until EOF reading characters or strings and writing (FILTER char) ;; Loop until EOF reading characters or strings and writing (FILTER char)
;; or (FILTER string). Useful as an arg to FORK or FORK/PIPE. ;; or (FILTER string). Useful as an arg to FORK or FORK/PIPE.
(define (char-filter filter) (define (make-char-port-filter filter)
(lambda () (lambda ()
(let lp () (let lp ()
(let ((c (read-char))) (let ((c (read-char)))
@ -895,7 +895,7 @@
(begin (write-char (filter c)) (begin (write-char (filter c))
(lp))))))) (lp)))))))
(define (string-filter filter . maybe-buflen) (define (make-string-port-filter filter . maybe-buflen)
(let* ((buflen (:optional maybe-buflen 1024)) (let* ((buflen (:optional maybe-buflen 1024))
(buf (make-string buflen))) (buf (make-string buflen)))
(lambda () (lambda ()