diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-03-14 12:37:57 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-03-14 12:37:57 +0000 |
| commit | c5d47859139bb5fd0a8164aca15c896d19790645 (patch) | |
| tree | df5e85df517c87cff757ccfb553bac0fc0921f5e | |
| parent | 18ba71fd4928f443aaae5bd9926f25ff62b44fb4 (diff) | |
intern compiled string literals
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index 98d55fec..83eab86a 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -3178,8 +3178,8 @@ private static Expr analyze(C context, Object form, String name) throws Exceptio return registerKeyword((Keyword) form); // else if(form instanceof Num) // return new NumExpr((Num) form); -// else if(fclass == String.class) -// return new StringExpr((String) form); + else if(fclass == String.class) + return new ConstantExpr(((String) form).intern()); // else if(fclass == Character.class) // return new CharExpr((Character) form); else if(form instanceof IPersistentCollection && ((IPersistentCollection) form).count() == 0) |