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

fix for pre-v2.0 Objective-C

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-27 16:12:36 -07:00
parent 705b11f2b8
commit 4d008e3021
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/ffi/unsafe/objc.rkt
View File

@ -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)))))