diff options
| author | Rich Hickey <richhickey@gmail.com> | 2007-10-18 01:47:59 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2007-10-18 01:47:59 +0000 |
| commit | caa8005d5700dedf633d4b4a2d0b117629eaa557 (patch) | |
| tree | 8a948267a6ed1e14081519c272cff9c307093abb /src | |
| parent | 0c09fc92fe24697fe0c0373c0a730a9e4bb05cf2 (diff) | |
fixed bug in do at top-level
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index 241832db..a9f2fa8a 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -2229,7 +2229,8 @@ static class BodyExpr implements Expr{ PersistentVector exprs = PersistentVector.EMPTY; for(; forms != null; forms = forms.rest()) { - Expr e = (context == C.STATEMENT || forms.rest() != null) ? + Expr e = (context != C.EVAL && + (context == C.STATEMENT || forms.rest() != null)) ? analyze(C.STATEMENT, forms.first()) : analyze(context, forms.first()); |