alien.inline: function-types-effect: fixed incorrect stack order
parent
8f8aa3051c
commit
f7ddd899c3
|
@ -15,7 +15,7 @@ SYMBOL: c-strings
|
|||
|
||||
: function-types-effect ( -- function types effect )
|
||||
scan scan swap ")" parse-tokens
|
||||
[ "(" subseq? not ] filter parse-arglist ;
|
||||
[ "(" subseq? not ] filter swap parse-arglist ;
|
||||
|
||||
: types-effect>params-return ( types effect -- params return )
|
||||
[ nip out>> first ] [ in>> zip ] 2bi ;
|
||||
|
|
Loading…
Reference in New Issue