Fix CLJ-1202.

Emit forms like (. foo (bar)) instead of (. foo bar), so that names
starting with a - don't look like field accesses.

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

Author: amalloy

src/clj/clojure/core_deftype.clj

@@ -554,7 +554,7 @@
                     (let [gargs (map #(gensym (str "gf__" % "__")) args)
                           target (first gargs)]
                       `([~@gargs]
-                          (. ~(with-meta target {:tag on-interface})  ~(or on-method method) ~@(rest gargs)))))
+                          (. ~(with-meta target {:tag on-interface}) (~(or on-method method) ~@(rest gargs))))))
                   arglists))
              ^clojure.lang.AFunction f#
              (fn ~gthis

test/clojure/test_clojure/protocols.clj

@@ -607,3 +607,12 @@
   (is (= :foo (sqtp :foo))))
 
 
+(defprotocol Dasherizer
+  (-do-dashed [this]))
+(deftype Dashed []
+  Dasherizer
+  (-do-dashed [this] 10))
+
+(deftest test-leading-dashes
+  (is (= 10 (-do-dashed (Dashed.))))
+  (is (= [10] (map -do-dashed [(Dashed.)]))))