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

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 7ad7e63dadea53d8d1f8e954d55df13d8ec6bf32..13b15aec800e778a647ef1292025f55db563b219 100644 (file)
--- 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 48f72a0f3dc07384936be82e94dc810273ac57d8..a3ff1393caff0f2a820fe19e003d41df3be81a79 100644 (file)
--- 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\"."
 \f
 ;;;; 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