.

original commit: 0d840020d3b3319961883418458eeb02e4066f4a
2004-10-09 21:36:25 +00:00 · 2004-10-09 21:36:25 +00:00 · 253ca32ef8
commit 253ca32ef8
parent b702ac3edd
1 changed files with 2 additions and 1 deletions
--- 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