From cf5a90b3b72be19e98bda7b19d9a88ba8397b32f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 20 Dec 2004 18:49:28 +0000
Subject: [PATCH] fix ffi

---
 library/compiler/alien.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/library/compiler/alien.factor b/library/compiler/alien.factor
index f9a71d9cac..14c5b96c0a 100644
--- a/library/compiler/alien.factor
+++ b/library/compiler/alien.factor
@@ -77,10 +77,10 @@ SYMBOL: alien-parameters
 
 : infer-alien ( -- )
     4 ensure-d
-    dataflow-drop, pop-d car
-    dataflow-drop, pop-d car
-    dataflow-drop, pop-d car alien-function >r
-    dataflow-drop, pop-d car swap
+    dataflow-drop, pop-d literal
+    dataflow-drop, pop-d literal
+    dataflow-drop, pop-d literal alien-function >r
+    dataflow-drop, pop-d literal swap
     r> dataflow, [
         alien-returns set
         alien-parameters set