From f3c47fad2e82a37a8b0f1e7da1e78e9a20e74d08 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sun, 29 Apr 2001 18:49:48 +0000
Subject: [PATCH] replace ? by cond

---
 smtp.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/smtp.scm b/smtp.scm
index 917a06d..22e7bf1 100644
--- 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)))