From 85b99de7b130ab9ee27f3b336dd4a6666bcce1c3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 27 Aug 2012 19:45:53 -0600 Subject: [PATCH] ffi/unsafe/objc: more support for loading in unsupported contexts --- collects/ffi/unsafe/objc.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/ffi/unsafe/objc.rkt b/collects/ffi/unsafe/objc.rkt index eacc6f4839..d47187de97 100644 --- a/collects/ffi/unsafe/objc.rkt +++ b/collects/ffi/unsafe/objc.rkt @@ -5,7 +5,7 @@ "atomic.rkt" "define.rkt") -(define objc-lib (ffi-lib "libobjc" #:fail (lambda () #f))) +(define objc-lib (ffi-lib "libobj" #:fail (lambda () #f))) (define-ffi-definer define-objc objc-lib #:provide provide-protected @@ -211,7 +211,10 @@ #:fail (lambda () (lambda (name) (cast (objc_lookUpClass name) _Class _Protocol)))) -(define-objc sel_registerName (_fun _string -> _SEL)) +(define-objc sel_registerName (_fun _string -> _SEL) + #:fail (lambda () (lambda (name) + ;; Fake registration using interned symbols + (cast (string->symbol name) _racket _gcpointer)))) (define-objc objc_allocateClassPair (_fun _Class _string _long -> _Class) #:fail (lambda () #f))