windows.com.syntax: don't put c-type words inside stack effect of Interface::Method words
parent
92e1ca8b61
commit
dcd76d2abe
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue