alien.inline: types->effect>params-return: fix for stack order and void return type
parent
f7ddd899c3
commit
d2f6f99954
basis/alien/inline
|
@ -18,7 +18,9 @@ SYMBOL: c-strings
|
|||
[ "(" subseq? not ] filter swap parse-arglist ;
|
||||
|
||||
: types-effect>params-return ( types effect -- params return )
|
||||
[ nip out>> first ] [ in>> zip ] 2bi ;
|
||||
[ in>> zip ]
|
||||
[ nip out>> dup length 0 > [ first ] [ drop "void" ] if ]
|
||||
2bi ;
|
||||
|
||||
: arg-list ( types -- params )
|
||||
CHAR: a swap length CHAR: a + [a,b]
|
||||
|
|
Loading…
Reference in New Issue