The return values in the stack effects of FUNCTION: words were c-types rather than strings. This was causing scaffold-help to fail on vocabularies with FUNCTION:.
parent
30b586ef5f
commit
b25e945c74
|
@ -72,10 +72,10 @@ IN: alien.parser
|
||||||
: function-quot ( return library function types -- quot )
|
: function-quot ( return library function types -- quot )
|
||||||
'[ _ _ _ _ alien-invoke ] ;
|
'[ _ _ _ _ alien-invoke ] ;
|
||||||
|
|
||||||
:: make-function ( return! library function! parameters -- word quot effect )
|
:: make-function ( return library function parameters -- word quot effect )
|
||||||
return function normalize-c-arg function! return!
|
return function normalize-c-arg :> ( return-c-type function )
|
||||||
function create-in dup reset-generic
|
function create-in dup reset-generic
|
||||||
return library function
|
return-c-type library function
|
||||||
parameters return parse-arglist [ function-quot ] dip ;
|
parameters return parse-arglist [ function-quot ] dip ;
|
||||||
|
|
||||||
: parse-arg-tokens ( -- tokens )
|
: parse-arg-tokens ( -- tokens )
|
||||||
|
|
Loading…
Reference in New Issue