Fix long-standing bug in OS/HOSTNAME.

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index ac72d8359285feea7c542207ff7a7b5ffca93d65..4a9c0ff520038f07f3825272c387750a95af5fcc 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: unix.scm,v 1.62 1996/02/27 21:05:56 cph Exp $
+;;;    $Id: unix.scm,v 1.63 1996/02/27 21:56:57 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -762,8 +762,9 @@ option, instead taking -P <filename>."
       "/usr/lib/sendmail"
       "fakemail"))
 
-(define os/hostname
-  (ucode-primitive full-hostname 0))
+(define (os/hostname)
+  (or ((ucode-primitive full-hostname 0))
+      ((ucode-primitive hostname 0))))
 
 (define (os/ls-file-time-string time)
   (let ((dt (decode-file-time time))