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

View File

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

View File

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