--- x.scm	2005-03-30 02:34:21.000000000 +0200
+++ udp.scm	2005-03-30 10:02:10.000000000 +0200
@@ -360,8 +360,7 @@
 (define udp-bind!
   (lambda (sock host port)
     (let ((fd (io:descriptor sock))
-          (addr (make-string _sockaddr_in_size))
-          (port ((foreign-lambda* int ((int port)) "return(htons(port));") port)))
+          (addr (make-string _sockaddr_in_size)))
       (if host
           (##net#get-host-or-error addr host port)
           (##net#make-in-addr-any-addr addr port))
@@ -376,8 +375,7 @@
 (define udp-connect!
   (lambda (sock host port)
     (let ((fd (io:descriptor sock))
-          (addr (make-string _sockaddr_in_size))
-          (port ((foreign-lambda* int ((int port)) "return(htons(port));") port)))
+          (addr (make-string _sockaddr_in_size)))
       (##net#get-host-or-error addr host port)
       (if (syscall-failed? (##net#connect fd addr _sockaddr_in_size))
           (##net#error "connect" host port)
@@ -399,8 +397,7 @@
 (define udp-sendto
   (lambda (sock host port str)
     (let ((fd (io:descriptor sock))
-          (addr (make-string _sockaddr_in_size))
-          (port ((foreign-lambda* int ((int port)) "return(htons(port));") port)))
+          (addr (make-string _sockaddr_in_size)))
       (##net#get-host-or-error addr host port)
       (restart-nonblocking "sendto" fd #f
         (lambda () (##net#sendto fd str (string-length str)