diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index c29179b1..d57b2788 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -1653,6 +1653,7 @@ static class FnMethod{ Var.pushThreadBindings(RT.map(LOOP_LABEL, loopLabel)); body.emit(C.RETURN, fn, gen); Label end = gen.mark(); + gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0); for(ISeq lbs = argLocals.seq(); lbs != null; lbs = lbs.rest()) { LocalBinding lb = (LocalBinding) lbs.first(); @@ -1860,6 +1861,7 @@ static class LetExpr implements Expr{ else body.emit(context, fn, gen); Label end = gen.mark(); + gen.visitLocalVariable("this", "Ljava/lang/Object;", null, loopLabel, end, 0); for(ISeq bis = bindingInits.seq(); bis != null; bis = bis.rest()) { BindingInit bi = (BindingInit) bis.first(); |