abi wrong

2004-12-26 03:15:37 +00:00 · 2004-12-26 03:15:37 +00:00 · 25c2cd547c
parent 2f71a0a4f6
commit 25c2cd547c
1 changed files with 1 additions and 1 deletions
--- 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 ;