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

Revert change to make-callback-type cause Slava already fixed it in parse-arglist

db4
Erik Charlebois 2010-02-22 19:34:34 -08:00
parent 833372cd08
commit aead6e7dd8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/parser/parser.factor
View File

@ -91,14 +91,14 @@ IN: alien.parser
'[ [ _ _ _ ] dip alien-callback ] ; '[ [ _ _ _ ] dip alien-callback ] ;
:: make-callback-type ( lib return type-name parameters -- word quot effect ) :: make-callback-type ( lib return type-name parameters -- word quot effect )
return type-name normalize-c-arg :> ( return-c-type type-name ) return type-name normalize-c-arg :> ( return type-name )
type-name current-vocab create :> type-word type-name current-vocab create :> type-word
type-word [ reset-generic ] [ reset-c-type ] bi type-word [ reset-generic ] [ reset-c-type ] bi
void* type-word typedef void* type-word typedef
parameters return parse-arglist :> ( types callback-effect ) parameters return parse-arglist :> ( types callback-effect )
type-word callback-effect "callback-effect" set-word-prop type-word callback-effect "callback-effect" set-word-prop
type-word lib "callback-library" set-word-prop type-word lib "callback-library" set-word-prop
type-word return-c-type types lib library-abi callback-quot (( quot -- alien )) ; type-word return types lib library-abi callback-quot (( quot -- alien )) ;
: (CALLBACK:) ( -- word quot effect ) : (CALLBACK:) ( -- word quot effect )
"c-library" get "c-library" get