From 53697c984fe0daea6cb85622286fb263ee0d69ca Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Mon, 30 Nov 2009 21:14:00 -0500
Subject: install var callsite for AFunctions only

---
 src/jvm/clojure/lang/Compiler.java | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index daef7610..02f6fcc0 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -3401,6 +3401,9 @@ static public class ObjExpr implements Expr{
 			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);
-- 
cgit v1.2.3-70-g09d2