feat: close conformance gaps — full atoms/volatiles/delays, quot/rem/mod sign semantics, ~40 core fns (split-at/take-nth/butlast/filterv/mapv/reduced/min-key/etc), sorted-map/set, regex (#"..." reader + PEG engine + re-find/matches/seq + string split/replace), Math statics, ex-info/ex-data/ex-message, namespaced keywords, vary-meta/defonce/macroexpand-1/letfn/doseq; fix doto/assoc-on-vector/frequencies/find/coll?/sort/partition; recursive equality
This commit is contained in:
parent
31d63df133
commit
7ec2fdfa18
6 changed files with 728 additions and 87 deletions
|
|
@ -75,6 +75,27 @@
|
|||
(write-value k buf)))
|
||||
(push-str buf "}"))
|
||||
|
||||
(and (table? v) (= :jolt/regex (v :jolt/type)))
|
||||
(do (push-str buf "#\"") (push-str buf (v :source)) (push-str buf "\""))
|
||||
|
||||
(and (table? v) (= :jolt/sorted-map (v :jolt/type)))
|
||||
(do
|
||||
(push-str buf "{")
|
||||
(var first? true)
|
||||
(each k (sort (array ;(keys (v :map))))
|
||||
(if first? (set first? false) (push-str buf ", "))
|
||||
(write-value k buf) (push-str buf " ") (write-value (get (v :map) k) buf))
|
||||
(push-str buf "}"))
|
||||
|
||||
(and (table? v) (= :jolt/sorted-set (v :jolt/type)))
|
||||
(do
|
||||
(push-str buf "#{")
|
||||
(var first? true)
|
||||
(each x (v :items)
|
||||
(if first? (set first? false) (push-str buf " "))
|
||||
(write-value x buf))
|
||||
(push-str buf "}"))
|
||||
|
||||
(and (table? v) (get v :jolt/deftype))
|
||||
(do
|
||||
(push-str buf "{")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue