aboutsummaryrefslogtreecommitdiff
path: root/clojurescript/clj.js
diff options
context:
space:
mode:
authorChouser <chouser@n01se.net>2008-10-15 05:23:39 +0000
committerChouser <chouser@n01se.net>2008-10-15 05:23:39 +0000
commitba31da0866de0a825ac2a7d7ddeec7b145ddfd63 (patch)
tree9a26d19d8b01c35948e5a3cf3accc65514cf467a /clojurescript/clj.js
parent5e53e7aca850e8937bdbf0f0194371c50fa36258 (diff)
ClojureScript: add a minimal HTTP server for compiling cljs to js
Diffstat (limited to 'clojurescript/clj.js')
-rw-r--r--clojurescript/clj.js7
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);