In HOSTNAME primitive, move PRIMITIVE_RETURN outside the conditional,

since we return whether we have sockets or not.

diff --git a/v7/src/microcode/pruxenv.c b/v7/src/microcode/pruxenv.c
index 85657cd5019ab671fb89324ea0026201b3a0d807..5e52acbae98832d54629f7248890c94b71fa53d6 100644 (file)
--- a/v7/src/microcode/pruxenv.c
+++ b/v7/src/microcode/pruxenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxenv.c,v 1.25 2007/01/12 03:45:55 cph Exp $
+$Id: pruxenv.c,v 1.26 2007/02/11 18:42:52 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -203,10 +203,10 @@ DEFINE_PRIMITIVE ("HOSTNAME", Prim_hostname, 0, 0,
 #ifdef HAVE_SOCKETS
     STD_VOID_SYSTEM_CALL (syscall_gethostname,
                          UX_gethostname (this_host_name, HOSTNAMESIZE));
-    PRIMITIVE_RETURN (char_pointer_to_string (this_host_name));
 #else
     strcpy (this_host_name, "unknown-host");
 #endif
+    PRIMITIVE_RETURN (char_pointer_to_string (this_host_name));
   }
 }