munge field names in lookup thunks

richhickey · Nov 12, 2009 · c58a6cf · c58a6cf
1 parent 8b93c4f
commit c58a6cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
@@ -5648,7 +5648,7 @@ static Class compileLookupThunk(NewInstanceExpr ret, Symbol fld) throws Exceptio
 		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);