fix error-message code

mflatt · mflatt · commit 8f73ebbc36dc · 2012-10-31T12:17:49.000-06:00
Closes PR 13222
diff --git a/collects/tests/racket/udp.rktl b/collects/tests/racket/udp.rktl
@@ -178,3 +178,17 @@
   (test w sync w))
 (test #t evt? (udp-receive!-evt udp1 us1))
 (test #t evt? (udp-send-to-evt udp1 "127.0.0.1" port #"here's more"))
+
+
+;; check that error-repoting doesn't crash:
+(let ()
+  (define (q)
+    (define s (udp-open-socket #f #f))
+    (udp-bind! s #f 5999)
+    s)
+  
+  (define s (q))
+  (err/rt-test (q) exn:fail:network?)
+  (udp-close s))
+
+
diff --git a/src/racket/src/network.c b/src/racket/src/network.c
@@ -3225,7 +3225,8 @@ static Scheme_Object *udp_bind_or_connect(const char *name, int argc, Scheme_Obj
                          "  port number: %d\n"
                          "  system error: %E", 
                          name, 
-                         port, address ? address : "#f", 
+                         address ? address : "#f", 
+                         port, 
                          SOCK_ERRNO());
         return NULL;
       }
@@ -3257,7 +3258,8 @@ static Scheme_Object *udp_bind_or_connect(const char *name, int argc, Scheme_Obj
                          "  port number: %d\n"
                          "  system error: %E",
                          name, 
-                         port, address ? address : "#f", 
+                         address ? address : "#f", 
+                         port, 
                          SOCK_ERRNO());
         return NULL;
       }
