abi wrong

diff --git a/library/compiler/alien.factor b/library/compiler/alien.factor
index 6d29d8f2ee67de670a2a1a0f72ed2452e1229740..89b9808bf01883181b632d5535e048c070f0f826 100644 (file)
--- a/library/compiler/alien.factor
+++ b/library/compiler/alien.factor
@@ -151,7 +151,7 @@ SYMBOL: alien-parameters
 : linearize-alien ( node -- )
     dup linearize-parameters >r
     dup [ node-param get ] bind #c-call swons ,
-    dup [ node-param get car library-abi "stdcall" = ] bind
+    dup [ node-param get cdr library-abi "stdcall" = ] bind
     r> swap [ drop ] [ #cleanup swons , ] ifte
     linearize-returns ;