From 540d9d5ae2bf192a054ccc78a99729bf29b76cde Mon Sep 17 00:00:00 2001 From: Chris Hanson 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