diff options
| author | Rich Hickey <richhickey@gmail.com> | 2007-12-07 22:40:20 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2007-12-07 22:40:20 +0000 |
| commit | 1afd217ec5c496c5f11bedf28a3424b262d8e626 (patch) | |
| tree | 22ea0973eb9413fb04b32bc17e02f0f81b7a3140 /src/jvm/clojure | |
| parent | 1be538f157cb9e8138dd15ea5cfb2acc5d288755 (diff) | |
disallow let of qualified name
Diffstat (limited to 'src/jvm/clojure')
| -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 7f43ccdf..c051d1c2 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -2412,7 +2412,8 @@ static class LetExpr implements Expr{ throw new IllegalArgumentException( "Bad binding form, expected symbol, got: " + bindings.nth(i)); Symbol sym = (Symbol) bindings.nth(i); - + if(sym.getNamespace() != null) + throw new Exception("Can't let qualified name"); Expr init = analyze(C.EXPRESSION, bindings.nth(i + 1), sym.name); //sequential enhancement of env (like Lisp let*) LocalBinding lb = registerLocal(sym, tagOf(sym), init); |