From 103ab287470fa4cdd140f3ddc1f1c29d2285a121 Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Mon, 6 Apr 1992 19:55:59 +0000
Subject: [PATCH] Addded krypt as a load-option.

---
 v7/src/runtime/ed-ffi.scm  |  2 ++
 v7/src/runtime/runtime.pkg | 11 ++++++++++-
 v8/src/runtime/runtime.pkg | 11 ++++++++++-
 3 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index 3b81fcae8..9391bb3a8 100644
--- a/v7/src/runtime/ed-ffi.scm
+++ b/v7/src/runtime/ed-ffi.scm
@@ -88,6 +88,8 @@
 		syntax-table/system-internal)
     ("io"	(runtime primitive-io)
 		syntax-table/system-internal)
+    ("krypt"	(runtime krypt)
+		syntax-table/system-internal)
     ("lambda"	(runtime lambda-abstraction)
 		syntax-table/system-internal)
     ("lambdx"	()
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5adb318e3..dfc859500 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.143 1992/04/06 05:49:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.144 1992/04/06 19:54:43 bal Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -871,6 +871,15 @@ MIT in each case. |#
 	  history-untransform)
   (initialization (initialize-package!)))
 
+(define-package (runtime krypt)
+  (file-case options
+    ((load) "krypt")
+    (else))
+  (parent ())
+  (export ()
+	  encrypt
+	  decrypt))
+
 (define-package (runtime port)
   (files "port")
   (parent ())
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index bf92f2298..a9c319f85 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.143 1992/04/06 05:49:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.144 1992/04/06 19:54:43 bal Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -871,6 +871,15 @@ MIT in each case. |#
 	  history-untransform)
   (initialization (initialize-package!)))
 
+(define-package (runtime krypt)
+  (file-case options
+    ((load) "krypt")
+    (else))
+  (parent ())
+  (export ()
+	  encrypt
+	  decrypt))
+
 (define-package (runtime port)
   (files "port")
   (parent ())
-- 
2.25.1