diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor index 0cf495fd25..d706446799 100644 --- a/basis/alien/parser/parser.factor +++ b/basis/alien/parser/parser.factor @@ -72,10 +72,10 @@ IN: alien.parser : function-quot ( return library function types -- quot ) '[ _ _ _ _ alien-invoke ] ; -:: make-function ( return! library function! parameters -- word quot effect ) - return function normalize-c-arg function! return! +:: make-function ( return library function parameters -- word quot effect ) + return function normalize-c-arg :> ( return-c-type function ) function create-in dup reset-generic - return library function + return-c-type library function parameters return parse-arglist [ function-quot ] dip ; : parse-arg-tokens ( -- tokens )