From 282a73775fdd42beff6cdaa58d7f3c5217bef2ee Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 23 Jan 1998 00:00:32 +0000 Subject: [PATCH] Reconditionalize decision to use the hairy floppy stuff so that it only happens on HP-UX. --- v7/src/6001/edextra.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 2.25.1