Fix more add/add* occurances
parent
c71a3e05c6
commit
6a2ab73938
|
@ -76,7 +76,7 @@ IN: cocoa.subclassing
|
||||||
r> <method-list> class_addMethods ;
|
r> <method-list> class_addMethods ;
|
||||||
|
|
||||||
: encode-types ( return types -- encoding )
|
: encode-types ( return types -- encoding )
|
||||||
swap add* [
|
swap prefix [
|
||||||
alien>objc-types get at "0" append
|
alien>objc-types get at "0" append
|
||||||
] map concat ;
|
] map concat ;
|
||||||
|
|
||||||
|
|
|
@ -40,7 +40,7 @@ unless
|
||||||
: (parse-com-function) ( tokens -- definition )
|
: (parse-com-function) ( tokens -- definition )
|
||||||
[ second ]
|
[ second ]
|
||||||
[ first ]
|
[ first ]
|
||||||
[ 3 tail 2 group [ first ] map "void*" add* ]
|
[ 3 tail 2 group [ first ] map "void*" prefix ]
|
||||||
tri
|
tri
|
||||||
<com-function-definition> ;
|
<com-function-definition> ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue