From 79cb4f1450430b2f3749b46ffbae769fc8489d93 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 Jul 1992 22:58:22 +0000
Subject: [PATCH] Return #F when name server fails.

---
 v7/src/microcode/pruxenv.c | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/pruxenv.c b/v7/src/microcode/pruxenv.c
index 0e4374939..ce9c2b4e4 100644
--- a/v7/src/microcode/pruxenv.c
+++ b/v7/src/microcode/pruxenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxenv.c,v 1.9 1992/07/08 18:19:46 ziggy Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/pruxenv.c,v 1.10 1992/07/08 22:58:22 cph Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -173,11 +173,10 @@ DEFINE_PRIMITIVE ("FULL-HOSTNAME", Prim_full_hostname, 0, 0,
 #ifdef HAVE_SOCKETS
     this_host_entry = (gethostbyname (this_host_name));
     PRIMITIVE_RETURN
-      (char_pointer_to_string
-       ((unsigned char *)
-	((this_host_entry == 0)
-	 ? this_host_name
-	 : (this_host_entry -> h_name))));
+      ((this_host_entry == 0)
+       ? SHARP_F
+       : (char_pointer_to_string
+	  ((unsigned char *) (this_host_entry -> h_name))));
 #else
     PRIMITIVE_RETURN
       (char_pointer_to_string ((unsigned char *) this_host_name));
-- 
2.25.1