Treat js namespace specially.

Gozala · Gozala · commit 2c7e2b0d5154 · 2014-05-23T08:22:41.000-07:00
diff --git a/src/backend/escodegen/writer.wisp b/src/backend/escodegen/writer.wisp
@@ -97,10 +97,11 @@
 
 (defn translate-identifier
   [form]
-  (str (if (namespace form)
-         (str (translate-identifier-word (namespace form)) ".")
-         "")
-       (join \. (map translate-identifier-word (split (name form) \.)))))
+  (let [ns (namespace form)]
+    (str (if (and ns (not (= ns "js")))
+           (str (translate-identifier-word (namespace form)) ".")
+           "")
+         (join \. (map translate-identifier-word (split (name form) \.))))))
 
 (defn error-arg-count
   [callee n]
diff --git a/test/escodegen.wisp b/test/escodegen.wisp
@@ -54,6 +54,7 @@
 (is (= (transpile "what.man?.->you.**.=") "what.isMan.toYou.__.isEqual;"))
 (is (= (transpile "foo/bar") "foo.bar;"))
 (is (= (transpile "foo.bar/baz") "foo_bar.baz;"))
+(is (= (transpile "js/window") "window;"))
 
 ;; =>
 ;; keywords
