b20536d1e3
reader: #?@ empty splice fix (nil→@[]), #? nil→:jolt/skip, map reader handles #_/#?@ in K/V evaluator: unwrap-meta-name helper, deftype interns ->Name too, dot-suffix fix core: comment/prefer-method stubs, *unchecked-math*/*clojure-version* dynamic vars
18 lines
587 B
Text
18 lines
587 B
Text
(use ./src/jolt/reader)
|
|
(def s (slurp "/Users/yogthos/src/sci/src/sci/impl/utils.cljc"))
|
|
(var ss s)
|
|
(var i 0)
|
|
(while (< i 14)
|
|
(def [f r] (parse-next ss))
|
|
(set ss r)
|
|
(++ i))
|
|
(try
|
|
(def [form rest] (parse-next ss))
|
|
(if (array? form)
|
|
(let [h (first form)]
|
|
(if (and (struct? h) (= :symbol (h :jolt/type)))
|
|
(print (string "form: (" (h :name) "...)"))
|
|
(print (string "form: array head " (type h)))))
|
|
(print (string "form: " (type form) " " (string form))))
|
|
(print (string "OK rest: " (string/slice rest 0 80)))
|
|
([err] (print (string "FAIL: " err))))
|