From 01ff14079fb705de6d68bdd4c46ecb260d15f81a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 18 May 2005 16:41:39 +0000
Subject: [PATCH] .

original commit: 79cbf31c528279961f7cc3f138b51fdf5f77f42f
---
 collects/mzlib/foreign.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index 4bd7631..ce1a267 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -360,7 +360,8 @@
       (syntax-case* x (=>) id=?
         [(id => body) (identifier? #'id)
          ;; Extract #'body from its context, use a key it needs certification:
-         (list #'id (syntax-recertify #'body orig #f fun-cert-key))]
+         (list (syntax-recertify #'id orig #f fun-cert-key)
+	       (syntax-recertify #'body orig #f fun-cert-key))]
         [_else x]))
    (let ([keys '()])
      (define (setkey! key val . id?)