From 7b49ad088a1d58880281d2b75568f5133a540dfa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 25 Aug 2012 19:01:17 -0600 Subject: [PATCH] ffi/unsafe/objc: `objc_lookUpClass' produces #f when unavailable This change allows `ffi/unsafe/nsstring', for example, to at least load on all platforms. --- collects/ffi/unsafe/objc.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/ffi/unsafe/objc.rkt b/collects/ffi/unsafe/objc.rkt index 69acb008ba..eacc6f4839 100644 --- a/collects/ffi/unsafe/objc.rkt +++ b/collects/ffi/unsafe/objc.rkt @@ -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)