Fix a type error: DNS packets need to stay in the DNS layer

2012-01-23 11:22:52 -05:00 · 2012-01-23 11:22:52 -05:00 · 43a6f52cd8
parent eebab5387b
commit 43a6f52cd8
1 changed files with 4 additions and 3 deletions
--- a/big-bang-driver.rkt
+++ b/big-bang-driver.rkt
@ -106,9 +106,10 @@
 			  (message-handlers w
 			   [(dns-reply message sink)
 			    (transition w
-			     (send-meta-message
-			      (with-handlers ((exn? (lambda (e) (bad-dns-packet message s sink
-										'unencodable))))
+			     (with-handlers ((exn? (lambda (e) (send-message
+								(bad-dns-packet message s sink
+										'unencodable)))))
+			       (send-meta-message
 				(udp-packet s sink (dns-message->packet message)))))]))))

 (define (first-only xs)