From f7ddd899c3e0fdadbe2701d8e8e668f11037cd5c Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sun, 5 Jul 2009 21:37:52 +1200
Subject: [PATCH] alien.inline: function-types-effect: fixed incorrect stack
order
---
basis/alien/inline/inline.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index ba540246b1..f9d7f06d88 100644
--- 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 ;