diff options
author | Chouser <chouser@n01se.net> | 2008-10-15 05:23:39 +0000 |
---|---|---|
committer | Chouser <chouser@n01se.net> | 2008-10-15 05:23:39 +0000 |
commit | ba31da0866de0a825ac2a7d7ddeec7b145ddfd63 (patch) | |
tree | 9a26d19d8b01c35948e5a3cf3accc65514cf467a /clojurescript/clj.js | |
parent | 5e53e7aca850e8937bdbf0f0194371c50fa36258 (diff) |
ClojureScript: add a minimal HTTP server for compiling cljs to js
Diffstat (limited to 'clojurescript/clj.js')
-rw-r--r-- | clojurescript/clj.js | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/clojurescript/clj.js b/clojurescript/clj.js index 887aade5..b5c1a84e 100644 --- a/clojurescript/clj.js +++ b/clojurescript/clj.js @@ -427,7 +427,11 @@ clojure = new clojure.lang.Namespace("clojure",{ return c.classname; if( "name" in c ) return c.name; - return "" + c; + var s = "" + c, + m = /^\[JavaClass (.*)]$/.exec(s); + if( m ) + return m[1]; + return s; }, } } @@ -1904,6 +1908,7 @@ clojure.print_method = new clojure.lang.MultiFn( clojure.JS.relayMethod( clojure.print_method, Number, java.lang.Number ); clojure.JS.relayMethod( clojure.print_method, String, java.lang.String, function(o) { return new clojure.JS.String(o); } ); +clojure.JS.relayMethod( clojure.print_method, clojure.JS.Class, java.lang.Class ); clojure.JS.def(clojure,"_STAR_print_readably_STAR_",true); |