From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jan 1998 00:00:32 +0000 (+0000)
Subject: Reconditionalize decision to use the hairy floppy stuff so that it
X-Git-Tag: 20090517-FFI~4888
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=282a73775fdd42beff6cdaa58d7f3c5217bef2ee;p=mit-scheme.git

Reconditionalize decision to use the hairy floppy stuff so that it
only happens on HP-UX.
---

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index 0124e81b5..da5e2d438 100644
--- a/v7/src/6001/edextra.scm
+++ b/v7/src/6001/edextra.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edextra.scm,v 1.25 1998/01/20 02:35:36 cph Exp $
+$Id: edextra.scm,v 1.26 1998/01/23 00:00:32 cph Exp $
 
 Copyright (c) 1992-98 Massachusetts Institute of Technology
 
@@ -75,7 +75,9 @@ MIT in each case. |#
   (set! pset-list-file (merge-pathnames "probsets.scm" pset-directory))
   (set-default-directory student-work-directory)
   (set-working-directory-pathname! student-work-directory)
-  (let ((hairy-floppy-stuff? (eq? 'UNIX microcode-id/operating-system)))
+  (let ((hairy-floppy-stuff?
+	 (and (eq? 'UNIX microcode-id/operating-system)
+	      (string-ci=? "HP-UX" microcode-id/operating-system-variant))))
     (if hairy-floppy-stuff?
 	(run-floppy-login-loop))
     (let ((pathname (merge-pathnames "motd" student-root-directory)))