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
	
	 mainzelm
						mainzelm