From c58a6cfaf5788a104f4a1dcb488f731ad94a2da0 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Wed, 11 Nov 2009 21:57:47 -0500
Subject: munge field names in lookup thunks

---
 src/jvm/clojure/lang/Compiler.java | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index 0c33dbad..5bdfb95c 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -5648,7 +5648,7 @@ static public class NewInstanceExpr extends ObjExpr{
 		gen.instanceOf(ret.objtype);
 		gen.ifZCmp(GeneratorAdapter.EQ, faultLabel);
 		gen.checkCast(ret.objtype);
-		gen.getField(ret.objtype, fld.name, ftype);
+		gen.getField(ret.objtype, munge(fld.name), ftype);
 		HostExpr.emitBoxReturn(ret,gen,fclass);
 		gen.goTo(endLabel);
 
-- 
cgit v1.2.3-70-g09d2