File tree Expand file tree Collapse file tree 1 file changed +5
-5
lines changed
Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change 779779 (let ~(vec (interleave bs gs))
780780 ~@body)))))))
781781
782- (def # ^:private fast-path-protocols
782+ (def ^:private fast-path-protocols
783783 " protocol fqn -> [partition number, bit]"
784784 (zipmap (map #(symbol " cljs.core" (core/str %))
785785 '[IFn ICounted IEmptyableCollection ICollection IIndexed ASeq ISeq INext
797797 :cljs (core/* 2 b))]))
798798 [0 1 ])))
799799
800- (def # ^:private fast-path-protocol-partitions-count
800+ (def ^:private fast-path-protocol-partitions-count
801801 " total number of partitions"
802802 (core/let [c (count fast-path-protocols)
803803 m (core/mod c 32 )]
12271227 (.replace \/ \$))
12281228 " $" ))
12291229
1230- (def # ^:private base-type
1230+ (def ^:private base-type
12311231 {nil " null"
12321232 'object " object"
12331233 'string " string"
12371237 'boolean " boolean"
12381238 'default " _" })
12391239
1240- (def # ^:private js-base-type
1240+ (def ^:private js-base-type
12411241 {'js/Boolean " boolean"
12421242 'js/String " string"
12431243 'js/Array " array"
26442644 (~print-fn (str ~bs-str " , " ~expr-str " , "
26452645 ~iterations " runs, " elapsed# " msecs" ))))))
26462646
2647- (def # ^:private cs (into [] (map (comp gensym core/str core/char) (range 97 118 ))))
2647+ (def ^:private cs (into [] (map (comp gensym core/str core/char) (range 97 118 ))))
26482648
26492649(core/defn- gen-apply-to-helper
26502650 ([] (gen-apply-to-helper 1 ))
You can’t perform that action at this time.
0 commit comments