steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bootstrap fix for OS X

release
slava 2006-03-09 22:43:38 +00:00
parent f305c6a252
commit ada7262fd8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/cocoa/utilities.factor
View File

@ -81,10 +81,12 @@ alien>objc-types set-global
[ objc-method-name sel_getName ] keep
method-arg-types 3array ;
: method-list@ ( ptr -- ptr )
"objc-method-list" c-size swap <displaced-alien> ;
: method-list>seq ( method-list -- seq )
dup objc-method-list-elements swap objc-method-list-count [
swap objc-method-nth objc-method-info
] map-with ;
dup method-list@ swap objc-method-list-count
[ swap objc-method-nth objc-method-info ] map-with ;
: (objc-methods) ( objc-class iterator -- )
2dup class_nextMethodList