Addded krypt as a load-option.

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index 3b81fcae84e85a4c6c608d985455a501862d01aa..9391bb3a8dad96e2e58114672b883ff5fb18d819 100644 (file)
--- 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 5adb318e3d30d4d4fa6d045f42ed37ecc57efcfb..dfc8595008d265a554a779726b79a8d95c3a6deb 100644 (file)
--- 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 bf92f22986378a2f1504425d70b1cb5a838fbe65..a9c319f85ed6560e12483f5f4b597e64d61c8dc2 100644 (file)
--- 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 ())