Clean up

chrismgray · Jan 11, 2012 · 842ba7a · 842ba7a
1 parent 9a7e63b
commit 842ba7a
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/src/analyze/core.clj b/src/analyze/core.clj
@@ -32,8 +32,7 @@
     (.invoke method obj (object-array args))))
 
 (defmulti Expr->map (fn Expr->map [& args]
-                      (assert (re-find #"Expr" (.getSimpleName (class (first args)))))
-                      (assert (= 2 (count args)))
+                      (assert (<= 2 (count args)))
                       (-> args first class)))
 
 ;; def
@@ -564,12 +563,6 @@
   (throw (Exception. (str "No method in multimethod 'Expr->map' for dispatch value: " (class expr)))))
 
 
-(defn wall-hack-method [class-name method-name types obj & args]
-  (-> class-name (.getDeclaredMethod (name method-name)
-                                     (into-array Class (seq types)))
-    (doto (.setAccessible true))
-    (.invoke obj (into-array Object args))))
-
 (defn- analyze* [env form]
   (letfn [(invoke-analyze [context form]
             (push-thread-bindings {Compiler/LOADER (RT/makeClassLoader)})