fix ffi

diff --git a/library/compiler/alien.factor b/library/compiler/alien.factor
index 3c19bd1c146828b7552a1bc380d5cedbf926c264..063277763bd89a48c3e1052e31573eaafa9b9e8c 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 literal
-    dataflow-drop, pop-d literal
-    dataflow-drop, pop-d literal alien-function >r
-    dataflow-drop, pop-d literal swap
+    dataflow-drop, pop-d literal-value
+    dataflow-drop, pop-d literal-value
+    dataflow-drop, pop-d literal-value alien-function >r
+    dataflow-drop, pop-d literal-value swap
     r> dataflow, [
         alien-returns set
         alien-parameters set