From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 1996 21:56:57 +0000 (+0000)
Subject: Fix long-standing bug in OS/HOSTNAME.
X-Git-Tag: 20090517-FFI~5698
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4eb71d418c5cb89fdbaa56b98e82be6b0b9d666;p=mit-scheme.git

Fix long-standing bug in OS/HOSTNAME.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index ac72d8359..4a9c0ff52 100644
--- 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))