ffi/unsafe/objc: `objc_lookUpClass' produces #f when unavailable

This change allows `ffi/unsafe/nsstring', for example, to at least load
on all platforms.
This commit is contained in:
Matthew Flatt 2012-08-25 19:01:17 -06:00
parent 2504eec834
commit 7b49ad088a

View File

@ -204,7 +204,8 @@
;; ----------------------------------------
(define-objc objc_lookUpClass (_fun _string -> _Class))
(define-objc objc_lookUpClass (_fun _string -> _Class)
#:fail (lambda () (lambda (name) #f)))
(define-objc objc_getProtocol (_fun _string -> _Protocol)
#:fail (lambda () (lambda (name)