fix bug in objc-mixin #:protocols

This commit is contained in:
Matthew Flatt 2010-09-03 15:04:34 -06:00
parent aa74cb748e
commit 82f102bfd8

View File

@ -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)) ...