# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1036081298 0
# Node ID 21d7f2c1897608570f6567227530f8ca268b4e2e
# Parent  75bdf0931b4cfefc6fcd9709a018e4d066dcff72
(Fformat_network_address): Fix int/Lisp_Object mixup.

diff -r 75bdf0931b4c -r 21d7f2c18976 src/process.c
--- a/src/process.c	Thu Oct 31 00:42:35 2002 +0000
+++ b/src/process.c	Thu Oct 31 16:21:38 2002 +0000
@@ -1078,11 +1078,11 @@
 	return Qnil;
 
       args[0] = build_string ("%d.%d.%d.%d:%d");
-      args[1] = XINT (p->contents[0]);
-      args[2] = XINT (p->contents[1]);
-      args[3] = XINT (p->contents[2]);
-      args[4] = XINT (p->contents[3]);
-      args[5] = XINT (p->contents[4]);
+      args[1] = p->contents[0];
+      args[2] = p->contents[1];
+      args[3] = p->contents[2];
+      args[4] = p->contents[3];
+      args[5] = p->contents[4];
       return Fformat (6, args);
     }
 
@@ -1090,7 +1090,7 @@
     {
       Lisp_Object args[2];
       args[0] = build_string ("<Family %d>");
-      args[1] = XINT (Fcar (address));
+      args[1] = Fcar (address);
       return Fformat (2, args);
       
     }