From 82f102bfd864dbc14060293946e88c345956e056 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 3 Sep 2010 15:04:34 -0600
Subject: [PATCH] fix bug in objc-mixin #:protocols

---
 collects/ffi/unsafe/objc.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/ffi/unsafe/objc.rkt b/collects/ffi/unsafe/objc.rkt
index 77bd77421f..491e4a9191 100644
--- a/collects/ffi/unsafe/objc.rkt
+++ b/collects/ffi/unsafe/objc.rkt
@@ -456,7 +456,7 @@
          (syntax/loc stx
            (define id
              (let ([mixin-id mixin] ...
-                   [protocol-id proto] ...)
+                   [proto-id proto] ...)
                (lambda (to-id superclass-id ivars)
                  (check-expected-ivars 'id ivars '(ivar ...))
                  (void (class_addProtocol to-id proto-id)) ...