alien.inline: function-types-effect: fixed incorrect stack order

db4
Jeremy Hughes 2009-07-05 21:37:52 +12:00
parent 8f8aa3051c
commit f7ddd899c3
1 changed files with 1 additions and 1 deletions

View File

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