replace ? by cond

2001-04-29 18:49:48 +00:00 · 2001-04-29 18:49:48 +00:00 · f3c47fad2e
parent 9692f2e8d3
commit f3c47fad2e
1 changed files with 3 additions and 3 deletions
--- a/smtp.scm
+++ b/smtp.scm
@ -71,9 +71,9 @@
 			     (lambda (to)
 			       (receive (code text) (smtp/rcpt socket to)
 				 (and (>= code 400) ; Error
-				      (? ((>= 600)
-					  (smtp/quit socket)
-					  (bailout code text))
+				      (cond ((>= code 600)
+					     (smtp/quit socket)
+					     (bailout code text))
 					 (else `(,to ,code ,@text))))))
 			     to-list)))