From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Nov 1992 23:35:19 +0000 (+0000)
Subject: Move load of krypt option to "edwin.ldr".
X-Git-Tag: 20090517-FFI~8737
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=587151ecbfb6611cec0d2977b3068513c237bccb;p=mit-scheme.git

Move load of krypt option to "edwin.ldr".
---

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 7ad7e63da..13b15aec8 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.37 1992/11/17 22:44:29 cph Exp $
+$Id: edwin.ldr,v 1.38 1992/11/18 23:35:19 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -78,6 +78,11 @@ MIT in each case. |#
       (define string-member? (member-procedure string=?))
       (define (boolean-and a b) (and a b))
 
+      (if (eq? (lookup 'OS-TYPE) 'UNIX)
+	  (begin
+	    (load-option 'KRYPT)
+	    (load-option 'SUBPROCESS)))
+
       (let ((environment (->environment '(EDWIN))))
 	(load "utils" environment)
 	(load "nvector" environment)
@@ -155,8 +160,6 @@ MIT in each case. |#
 
 	(load "fileio" environment)
 
-	(if (eq? (lookup 'os-type) 'unix)
-	    (load-option 'SUBPROCESS))
 	(load-case 'os-type '((unix . "process") (dos . "dosproc"))
 		   (->environment '(EDWIN PROCESS)))
 
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 48f72a0f3..a3ff1393c 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.29 1992/11/13 22:54:18 cph Exp $
+;;;	$Id: unix.scm,v 1.30 1992/11/18 23:35:14 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -443,8 +443,6 @@ filename suffix \".Z\"."
 
 ;;;; Encrypted files
 
-(load-option 'krypt)
-
 (define-variable enable-encrypted-files
   "If true, encrypted files are automatically decrypted when read,
 and recrypted when written.  An encrypted file is identified by the