Skip to content
Browse files

CLJS-336: Hyphenated Protocols

  • Loading branch information...
1 parent 1c71ab3 commit 9824dbd7c8ac658ebc2d5bc9fa6b5b898f17f659 David Nolen committed Aug 31, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/clj/cljs/compiler.clj
View
4 src/clj/cljs/compiler.clj
@@ -555,7 +555,7 @@
(when (= :expr context) (emits "})()"))))
(defn protocol-prefix [psym]
- (str (-> (str psym) (.replace \. \$) (.replace \/ \$)) "$"))
+ (symbol (str (-> (str psym) (.replace \. \$) (.replace \/ \$)) "$")))
(defmethod emit :invoke
[{:keys [f args env] :as expr}]
@@ -613,7 +613,7 @@
(emits "!(" (first args) ")")
proto?
- (let [pimpl (str (protocol-prefix protocol)
+ (let [pimpl (str (munge (protocol-prefix protocol))
(munge (name (:name info))) "$arity$" (count args))]
(emits (first args) "." pimpl "(" (comma-sep args) ")"))

0 comments on commit 9824dbd

Please sign in to comment.
Something went wrong with that request. Please try again.