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

db4
Joe Groff 2010-02-21 22:07:32 -08:00
parent 92e1ca8b61
commit dcd76d2abe
1 changed files with 1 additions and 1 deletions

View File

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