From 253ca32ef89dedca6be2bda75240541900e1d386 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sat, 9 Oct 2004 21:36:25 +0000
Subject: [PATCH] .

original commit: 0d840020d3b3319961883418458eeb02e4066f4a
---
 collects/mzlib/etc.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.ss
index e583d71..2169b93 100644
--- a/collects/mzlib/etc.ss
+++ b/collects/mzlib/etc.ss
@@ -508,7 +508,8 @@
               (syntax/loc stx
                 (let ([ht (make-hash-table flag ...)])
                   (hash-table-put! ht key val) ...
-                  ht)))]))]))
+                  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