From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 16 Nov 1992 21:09:32 +0000 (+0000)
Subject: Move load-option from top-level to inside the encryption/decryption
X-Git-Tag: 20090517-FFI~8767
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=671c71920ebe006319f5bac6bee1a70570a6bc14;p=mit-scheme.git

Move load-option from top-level to inside the encryption/decryption
command.  In this way krypt is only loaded when first accessed, and
not at edwin load time.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index b8eebe54b..6b0f8fdd5 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.129 1992/11/16 16:39:12 bal Exp $
+;;;	$Id: dired.scm,v 1.130 1992/11/16 21:09:32 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -580,13 +580,12 @@ Actions controlled by variables list-directory-brief-switches
 
 ;;;; Krypt File
 
-(load-option 'krypt)
-
 (define-command dired-krypt-file
   "Krypt/unkrypt a file.  If the file ends in KY, assume it is already 
 krypted and unkrypt it.  Otherwise, krypt it."
   '()
   (lambda ()
+    (load-option 'krypt)
     (let ((pathname (dired-current-pathname)))
       (if (and (pathname-type pathname)
 	       (string=? (pathname-type pathname) "KY"))