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

replace ? by cond

This commit is contained in:
mainzelm 2001-04-29 18:49:48 +00:00
parent 9692f2e8d3
commit f3c47fad2e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
smtp.scm
View File

@ -71,9 +71,9 @@
(lambda (to) (lambda (to)
(receive (code text) (smtp/rcpt socket to) (receive (code text) (smtp/rcpt socket to)
(and (>= code 400) ; Error (and (>= code 400) ; Error
(? ((>= 600) (cond ((>= code 600)
(smtp/quit socket) (smtp/quit socket)
(bailout code text)) (bailout code text))
(else `(,to ,code ,@text)))))) (else `(,to ,code ,@text))))))
to-list))) to-list)))