remove some untested function extra/llvm

diff --git a/extra/llvm/llvm.factor b/extra/llvm/llvm.factor
index 8c6385e05d2ffe28767b5d243566c3771f122487..f5538be2c10653e0a2bbace809bd547705f42462 100644 (file)
--- a/extra/llvm/llvm.factor
+++ b/extra/llvm/llvm.factor
@@ -5,7 +5,7 @@ quotations sequences specialized-arrays.alien ;
 IN: llvm
 
 : llvm-throw ( char** -- )
-    *void* [ alien>string ] [ LLVMDisposeMessage ] bi throw ;
+    [ alien>string ] [ LLVMDisposeMessage ] bi throw ;
 
 DISPOSABLE-CENTRAL: module
 CENTRAL: function
@@ -76,10 +76,4 @@ M: LLVMExecutionEngine dispose* value>> LLVMDisposeExecutionEngine ;
 : global>pointer ( value -- alien ) engine value>> swap LLVMGetPointerToGlobal ;
 
 : find-function ( name -- fn )
-    engine value>> swap f <void*> [ LLVMFindFunction drop ] keep *void* ;
-
-: llvm-int ( n -- Value )
-    32 LLVMIntType swap 1 LLVMCreateGenericValueOfInt ;
-
-: prepare-args ( function seq -- f numargs args )
-    over LLVMCountParams swap [ llvm-int ] map f suffix >void*-array ;
\ No newline at end of file
+    engine value>> swap f <void*> [ LLVMFindFunction drop ] keep *void* ;
\ No newline at end of file