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

Remove FILTER-MAP from smtp.scm and use the FILTER-MAP from SRFI 1 

instead.
This commit is contained in:
sperber 2002-09-02 08:36:42 +00:00
parent e6009cad13
commit 060d0f8076
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/lib/smtp.scm
View File

@ -76,16 +76,6 @@
(values code text) (values code text)
(values 700 losers)))))))))) (values 700 losers))))))))))
;;; Trivial utility -- like map, but filter out #f's.
(define (filter-map f lis)
(let lp ((ans '()) (lis lis))
(if (pair? lis)
(lp (cond ((f (car lis)) => (lambda (val) (cons val ans)))
(else ans))
(cdr lis))
(reverse ans))))
;;; EXPN, VRFY, MAIL-HELP ;;; EXPN, VRFY, MAIL-HELP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; These three are simple queries of the server. ;;; These three are simple queries of the server.

1
scheme/packages.scm
View File

@ -438,6 +438,7 @@
(open scsh ; write-string read-string/partial force-output (open scsh ; write-string read-string/partial force-output
; system-name user-login-name and sockets ; system-name user-login-name and sockets
(subset srfi-1 (filter-map))
crlf-io ; read-crlf-line write-crlf crlf-io ; read-crlf-line write-crlf
receiving ; values receive receiving ; values receive
let-opt ; let-optionals let-opt ; let-optionals