From 587151ecbfb6611cec0d2977b3068513c237bccb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Nov 1992 23:35:19 +0000
Subject: [PATCH] Move load of krypt option to "edwin.ldr".
---
v7/src/edwin/edwin.ldr | 9 ++++++---
v7/src/edwin/unix.scm | 4 +---
2 files changed, 7 insertions(+), 6 deletions(-)
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
--
2.25.1