diff options
| author | Rich Hickey <richhickey@gmail.com> | 2007-08-08 15:12:12 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2007-08-08 15:12:12 +0000 |
| commit | e47953186a17469875a94a00f5a98de5d1f926f3 (patch) | |
| tree | ed34cbcad294e2b3f7e38b750745b2d26b249c2e | |
| parent | 1e4492b15775747144472f30e3cf4aeff193a2bc (diff) | |
interim checkin
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 39 |
1 files changed, 19 insertions, 20 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index 6d6e6222..8f900a12 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -68,29 +68,29 @@ static public DynamicVar USES = new DynamicVar(); static public DynamicVar FNS = new DynamicVar(); static public IPersistentMap CHAR_MAP = - new PersistentArrayMap(new Object[]{'-', "_DSH_", + new PersistentArrayMap(new Object[]{'-', "_DASH_", '.', "_DOT_", - ':', "_CLN_", - '+', "_PLS_", + ':', "_COLON_", + '+', "_PLUS_", '>', "_GT_", '<', "_LT_", '=', "_EQ_", - '~', "_TLD_", - '!', "_EXC_", - '@', "_AT_", - '#', "_SHP_", - '$', "_DS_", - '%', "_PCT_", - '^', "_CRT_", - '&', "_AMP_", + '~', "_TILDE_", + '!', "_BANG_", + '@', "_CIRCA_", + '#', "_SHARP_", + '$', "_DOLLARSIGN_", + '%', "_PERCENT_", + '^', "_CARET_", + '&', "_AMPERSAND_", '*', "_STAR_", - '{', "_LBC_", - '}', "_RBC_", - '[', "_LBK_", - ']', "_RBK_", - '/', "_FSL_", - '\\', "_BSL_", - '?', "_QM_"}); + '{', "_LBRACE_", + '}', "_RBRACE_", + '[', "_LBRACK_", + ']', "_RBRACK_", + '/', "_SLASH_", + '\\', "_BSLASH_", + '?', "_QMARK_"}); private static final int MAX_POSITIONAL_ARITY = 20; @@ -316,8 +316,7 @@ static class AnExpr implements Expr{ catch(Exception e) { //declared exceptions are an incredibly bad idea !!! - e.printStackTrace(); - return e.toString(); + throw new RuntimeException(e); } } } |