refactoring

jasonjckn · Jun 14, 2011 · 5fab521 · 5fab521
1 parent 888627a
commit 5fab521
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/input.program b/input.program
@@ -1,7 +1,7 @@
 func cos(Double) Double;
 func printf(...) Integer;
 
-func bar() Object {
+func bar() Integer {
    printf("foo");
    return 3;
 }

diff --git a/src/llvm.clj b/src/llvm.clj
@@ -35,7 +35,6 @@
 (defn wrap-type [clj-type]
   (let [type-map {Double (LLVMDoubleType)
                   Integer (LLVMInt32Type)
-                  Object (LLVMOpaqueType)
                   String (LLVMTypeOf (LLVMConstString "hello" 5 false))}
         lookup (type-map clj-type)]
     (cond
@@ -62,7 +61,7 @@
 (defmethod wrap-value String [v]
            (LLVMConstString v (count v) false))
 (defmethod wrap-value Integer [v]
-           (LLVMConstInt (wrap-type Object) v false))
+           (LLVMConstInt (wrap-type (class v)) v false))
 (defmethod wrap-value :default [v] v)
 
 (defn build-call [builder fn args]