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 779
779
(let ~(vec (interleave bs gs))
780
780
~@body)))))))
781
781
782
- (def # ^:private fast-path-protocols
782
+ (def ^:private fast-path-protocols
783
783
" protocol fqn -> [partition number, bit]"
784
784
(zipmap (map #(symbol " cljs.core" (core/str %))
785
785
'[IFn ICounted IEmptyableCollection ICollection IIndexed ASeq ISeq INext
797
797
:cljs (core/* 2 b))]))
798
798
[0 1 ])))
799
799
800
- (def # ^:private fast-path-protocol-partitions-count
800
+ (def ^:private fast-path-protocol-partitions-count
801
801
" total number of partitions"
802
802
(core/let [c (count fast-path-protocols)
803
803
m (core/mod c 32 )]
1227
1227
(.replace \/ \$))
1228
1228
" $" ))
1229
1229
1230
- (def # ^:private base-type
1230
+ (def ^:private base-type
1231
1231
{nil " null"
1232
1232
'object " object"
1233
1233
'string " string"
1237
1237
'boolean " boolean"
1238
1238
'default " _" })
1239
1239
1240
- (def # ^:private js-base-type
1240
+ (def ^:private js-base-type
1241
1241
{'js/Boolean " boolean"
1242
1242
'js/String " string"
1243
1243
'js/Array " array"
2644
2644
(~print-fn (str ~bs-str " , " ~expr-str " , "
2645
2645
~iterations " runs, " elapsed# " msecs" ))))))
2646
2646
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 ))))
2648
2648
2649
2649
(core/defn- gen-apply-to-helper
2650
2650
([] (gen-apply-to-helper 1 ))
You can’t perform that action at this time.
0 commit comments