From ff365851cc3a9cfe18527c80a306dc1d62a07701 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 1 Sep 2004 11:41:06 +0000
Subject: [PATCH] .

original commit: 2e13eb38115c0a8fdfaea47b18ba5f0b84dfc1ec
---
 collects/mzlib/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index d18cb12..2d7c419 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -163,7 +163,7 @@
         (reverse! r)
         (let ([x (f (car l))]) (loop (cdr l) (if x (cons x r) r))))))
   (define id=? module-or-top-identifier=?)
-  (syntax-case* stx (->) id=?
+  (syntax-case stx ()
     [(_ x ...)
      (let ([xs (map (lambda (x)
                       (syntax-case* x (-> ::) id=? [:: '::] [-> '->] [_  x]))