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:
parent
0c61d18779
commit
87632c785e
|
@ -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
|
||||
|
|
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue