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

2009-07-05 21:37:52 +12:00 · 2009-07-05 21:37:52 +12:00 · f7ddd899c3
parent 8f8aa3051c
commit f7ddd899c3
1 changed files with 1 additions and 1 deletions
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@ -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 ;