Add interfaces to MD5 and Blowfish.

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index ac70fe01c792f9fc23eb1606e9f6494fc48c00e2..239004b192f08442dde04996837462f33175103f 100644 (file)
--- a/v7/src/runtime/ed-ffi.scm
+++ b/v7/src/runtime/ed-ffi.scm
@@ -1,8 +1,8 @@
 #| -*- Scheme -*-
 
-$Id: ed-ffi.scm,v 1.16 1996/04/24 04:27:22 cph Exp $
+$Id: ed-ffi.scm,v 1.17 1997/06/09 07:44:52 cph Exp $
 
-Copyright (c) 1988-96 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -48,6 +48,8 @@ MIT in each case. |#
                syntax-table/system-internal)
     ("bitstr"  ()
                syntax-table/system-internal)
+    ("blowfish"        ()
+               syntax-table/system-internal)
     ("boole"   ()
                syntax-table/system-internal)
     ("boot"    ()

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 044bac29230de932f9bc7a650551f8d9aa610ed6..d49df5b9f8c82e9fe1173babd6366bc5004e7396 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.279 1997/05/19 17:38:00 cph Exp $
+$Id: runtime.pkg,v 14.280 1997/06/09 07:45:43 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -35,7 +35,8 @@ MIT in each case. |#
 ;;;; Runtime System Packaging
 \f
 (define-package ()
-  (files "bitstr"
+  (files "blowfish"
+        "bitstr"
         "boole"
         "boot"
         "equals"

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index e170663f4eb7eb9687f4098ddbc46f0a26c86412..5961a2e0c824a4a12db87aa1b631feb976b165a0 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.285 1997/05/19 17:37:49 cph Exp $
+$Id: runtime.pkg,v 14.286 1997/06/09 07:45:14 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -35,7 +35,8 @@ MIT in each case. |#
 ;;;; Runtime System Packaging
 \f
 (define-package ()
-  (files "bitstr"
+  (files "blowfish"
+        "bitstr"
         "boole"
         "boot"
         "equals"