From ada948ed6116f6df77dc3c3c0a66798dcd66c8e4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Jan 2005 20:42:50 +0000 Subject: [PATCH] . original commit: aa19749bb33cb757a5b6f331669eb0f9f76304d5 --- collects/mzlib/etc.ss | 1 - collects/mzlib/struct.ss | 2 ++ 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.ss index 45e013f..69e74d7 100644 --- a/collects/mzlib/etc.ss +++ b/collects/mzlib/etc.ss @@ -508,7 +508,6 @@ (hash-table-put! ht key val) ... ht)))] [_else (raise-syntax-error 'hash-table "bad syntax" stx)]))])) - (define-syntax (begin-with-definitions stx) ;; Body can have mixed exprs and defns. Wrap expressions with diff --git a/collects/mzlib/struct.ss b/collects/mzlib/struct.ss index af0ac71..f055d2a 100644 --- a/collects/mzlib/struct.ss +++ b/collects/mzlib/struct.ss @@ -1,4 +1,6 @@ +;; by Jacob Matthews + (module struct mzscheme (provide copy-struct)