From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Jun 1997 07:45:43 +0000 (+0000)
Subject: Add interfaces to MD5 and Blowfish.
X-Git-Tag: 20090517-FFI~5151
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=540d9d5ae2bf192a054ccc78a99729bf29b76cde;p=mit-scheme.git

Add interfaces to MD5 and Blowfish.
---

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index ac70fe01c..239004b19 100644
--- 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 044bac292..d49df5b9f 100644
--- 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
 
 (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 e170663f4..5961a2e0c 100644
--- 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
 
 (define-package ()
-  (files "bitstr"
+  (files "blowfish"
+	 "bitstr"
 	 "boole"
 	 "boot"
 	 "equals"