From 540d9d5ae2bf192a054ccc78a99729bf29b76cde Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Jun 1997 07:45:43 +0000
Subject: [PATCH] Add interfaces to MD5 and Blowfish.
---
v7/src/runtime/ed-ffi.scm | 6 ++++--
v7/src/runtime/runtime.pkg | 5 +++--
v8/src/runtime/runtime.pkg | 5 +++--
3 files changed, 10 insertions(+), 6 deletions(-)
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"
--
2.25.1