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:.

db4
Erik Charlebois 2010-02-20 03:02:56 -08:00
parent 30b586ef5f
commit b25e945c74
1 changed files with 3 additions and 3 deletions

View File

@ -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 )