windows.com.syntax: don't put c-type words inside stack effect of Interface::Method words

2010-02-21 22:07:32 -08:00 · 2010-02-21 22:07:32 -08:00 · dcd76d2abe
parent 92e1ca8b61
commit dcd76d2abe
1 changed files with 1 additions and 1 deletions
--- a/basis/windows/com/syntax/syntax.factor
+++ b/basis/windows/com/syntax/syntax.factor
@ -71,7 +71,7 @@ ERROR: no-com-interface interface ;
 : (stack-effect-from-return-and-parameters) ( return parameters -- stack-effect )
    swap
    [ [ second ] map ]
-    [ dup void? [ drop { } ] [ 1array ] if ] bi*
+    [ dup void? [ drop { } ] [ name>> 1array ] if ] bi*
    <effect> ;

 : (define-word-for-function) ( function interface n -- )