analyze case exprs in context, fixes #258

1 files changed, 2 insertions, 2 deletions

diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index aea3b062..1f224938 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -6767,7 +6767,7 @@ public static class CaseExpr extends UntypedExpr{
                 try {
                     Var.pushThreadBindings(
                             RT.map(CLEAR_PATH, new PathNode(PATHTYPE.PATH,branch)));
-                    thenExpr = analyze(C.EXPRESSION, me.getValue());
+                    thenExpr = analyze(context, me.getValue());
                     }
                 finally{
                     Var.popThreadBindings();
@@ -6779,7 +6779,7 @@ public static class CaseExpr extends UntypedExpr{
             try {
                 Var.pushThreadBindings(
                         RT.map(CLEAR_PATH, new PathNode(PATHTYPE.PATH,branch)));
-                defaultExpr = analyze(C.EXPRESSION, args.nth(5));
+                defaultExpr = analyze(context, args.nth(5));
                 }
             finally{
                 Var.popThreadBindings();