fix bug in objc-mixin #:protocols
This commit is contained in:
parent
aa74cb748e
commit
82f102bfd8
|
@ -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)) ...
|
||||
|
|
Loading…
Reference in New Issue
Block a user