From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jan 1998 00:23:08 +0000 (+0000)
Subject: Don't load "floppy" unless running under HP-UX.
X-Git-Tag: 20090517-FFI~4886
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a582dfb83a29b25c11534ee84b73f601d1543890;p=mit-scheme.git

Don't load "floppy" unless running under HP-UX.
---

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index 4bfc32954..6ef9f414f 100644
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 15.25 1996/09/28 18:29:11 cph Exp $
+$Id: make.scm,v 15.26 1998/01/23 00:23:08 cph Exp $
 
-Copyright (c) 1991-95 Massachusetts Institute of Technology
+Copyright (c) 1991-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,7 +39,8 @@ MIT in each case. |#
 (package/system-loader "6001" '() 'QUERY)
 (let ((edwin (->environment '(edwin))))
   (load "edextra" edwin)
-  (if (eq? 'UNIX microcode-id/operating-system)
+  (if (and (eq? 'UNIX microcode-id/operating-system)
+	   (string-ci=? "HP-UX" microcode-id/operating-system-variant))
       (load "floppy" edwin)))
 ((access initialize-package! (->environment '(student scode-rewriting))))
 (add-system! (make-system "6.001" 15 23 '()))