Fixed bug in send-receive-message-tcp where a WITH-HANDLER was called

with erroneous arguments.
2004-01-27 16:29:42 +00:00 · 2004-01-27 16:29:42 +00:00 · cf8911921d
parent 5ece0109b1
commit cf8911921d
1 changed files with 1 additions and 1 deletions
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@ -848,7 +848,7 @@
 					     (r (socket:inport sock)))
 					 (call-with-current-continuation
 					  (lambda (k)
-					    (with-handler (lambda (k)
+					    (with-handler (lambda (cond more)
 							    (k (loop-ready-channels (cdr ready-channels))))
 							  (lambda ()
 							    (display query-string w)