suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ffi/unsafe/objc: check for bad protocol

Browse Source 
Raise an exception instead of installing NULL as a protocol for a
class.
This commit is contained in:
Matthew Flatt 2016-12-14 13:39:29 -07:00
parent ce370c2f64
commit dc0898f5ef
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/ffi/unsafe/objc.rkt
View File

@ -697,6 +697,8 @@
(objc_addClass (cast id _Class _objc_class-pointer)))) (objc_addClass (cast id _Class _objc_class-pointer))))
(define (add-protocol id proto) (define (add-protocol id proto)
(unless proto
(error 'add-protocol "NULL protocol"))
(if class_addProtocol (if class_addProtocol
(class_addProtocol id proto) (class_addProtocol id proto)
(add-protocol-the-hard-way id proto))) (add-protocol-the-hard-way id proto)))