Add new procedure OS/HOSTNAME.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 33b604d9bfa1c219b352675ac14a68e658da6c39..8a64912242eaf0afd266317b84dc6a8886f4b625 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.287 1997/08/08 21:29:19 cph Exp $
+$Id: runtime.pkg,v 14.288 1997/11/01 07:36:14 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2281,6 +2281,7 @@ MIT in each case. |#
          open-tcp-stream-socket-channel
          open-unix-stream-socket
          open-unix-stream-socket-channel
+         os/hostname
          tcp-server-connection-accept))
 
 (define-package (runtime subprocess)

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index dab892f6a64d6c439ada89127af6bca8e3b6c08a..9719293413d44c82099f61f64a23c616b7f89277 100644 (file)
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.8 1996/05/18 06:15:24 cph Exp $
+$Id: socket.scm,v 1.9 1997/11/01 07:31:40 cph Exp $
 
-Copyright (c) 1990-96 Massachusetts Institute of Technology
+Copyright (c) 1990-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -61,6 +61,10 @@ MIT in each case. |#
     (lambda ()
       ((ucode-primitive get-host-by-name 1) host-name))))
 
+(define (os/hostname)
+  ((ucode-primitive canonical-host-name 1)
+   ((ucode-primitive get-host-name 0))))
+
 (define (open-unix-stream-socket-channel filename)
   (open-channel
    (lambda (p)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 4a727c61f5fb869800130de0c6f41be7efd4847f..1c72e52a33fd3983abfebb311f3600673134c544 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.293 1997/08/08 21:29:26 cph Exp $
+$Id: runtime.pkg,v 14.294 1997/11/01 07:35:47 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2285,6 +2285,7 @@ MIT in each case. |#
          open-tcp-stream-socket-channel
          open-unix-stream-socket
          open-unix-stream-socket-channel
+         os/hostname
          tcp-server-connection-accept))
 
 (define-package (runtime subprocess)