From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 6 Apr 1992 19:55:59 +0000 (+0000)
Subject: Addded krypt as a load-option.
X-Git-Tag: 20090517-FFI~9514
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=103ab287470fa4cdd140f3ddc1f1c29d2285a121;p=mit-scheme.git

Addded krypt as a load-option.
---

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 ())