fix ffi

diff --git a/library/compiler/alien.factor b/library/compiler/alien.factor
index f9a71d9cac4ffd31a3902e7d3d3948b448677258..14c5b96c0a45a70836c2cc45fd2f336700e02417 100644 (file)
--- 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