From 4d008e30210a84b09818208d569ab67950629e43 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 27 Dec 2010 16:12:36 -0700 Subject: [PATCH] fix for pre-v2.0 Objective-C --- collects/ffi/unsafe/objc.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/ffi/unsafe/objc.rkt b/collects/ffi/unsafe/objc.rkt index fa5c754fad..e9019cbea3 100644 --- a/collects/ffi/unsafe/objc.rkt +++ b/collects/ffi/unsafe/objc.rkt @@ -870,6 +870,8 @@ ;; -------------------------------------------------- (define-objc class_getInstanceMethod (_fun _Class _SEL -> _Method)) -(define-objc method_setImplementation (_fun _Method _IMP -> _IMP)) - - +(define-objc method_setImplementation (_fun _Method _IMP -> _IMP) + #:fail (lambda () (lambda (meth imp) + (set-objc_method-method_imp! + (cast meth _Method _objc_method-pointer) + (function-ptr imp _IMP)))))