From c4eb71d418c5cb89fdbaa56b98e82be6b0b9d666 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 1996 21:56:57 +0000
Subject: [PATCH] Fix long-standing bug in OS/HOSTNAME.
---
v7/src/edwin/unix.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
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))
--
2.25.1