install var callsite for AFunctions only

arohner · Dec 1, 2009 · 53697c9 · 53697c9
1 parent e13d8a4
commit 53697c9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
@@ -3401,6 +3401,9 @@ void compile(String superName, String[] interfaceNames, boolean oneTimeUse) thro
 			clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);
 
 			clinitgen.invokeVirtual(VAR_TYPE,Method.getMethod("Object getRoot()"));
+            clinitgen.dup();
+            clinitgen.instanceOf(AFUNCTION_TYPE);
+            clinitgen.ifZCmp(GeneratorAdapter.EQ,skipLabel);
 			clinitgen.checkCast(IFN_TYPE);
 			clinitgen.putStatic(objtype, varCallsiteName(i), IFN_TYPE);
 			clinitgen.goTo(endLabel);