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
13 lines
358 B
Text
13 lines
358 B
Text
(use ./src/jolt/reader)
|
|
|
|
(def src (slurp "/Users/yogthos/src/sci/src/sci/impl/utils.cljc"))
|
|
(var s src)
|
|
(for i 1 14
|
|
(let [p (parse-next s)]
|
|
(set s (in p 1))))
|
|
|
|
(def [form15 rest] (parse-next s))
|
|
(if (array? form15)
|
|
(printf "form15: (%s ...)" (get (first form15) :name))
|
|
(printf "form15: %q" form15))
|
|
(printf " => OK, rest: %d bytes" (length rest))
|