From b25e945c746e357b54107fa6212184555dd83f94 Mon Sep 17 00:00:00 2001 From: Erik Charlebois Date: Sat, 20 Feb 2010 03:02:56 -0800 Subject: [PATCH] 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:. --- basis/alien/parser/parser.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 )