bootstrap: SCI core deps loading with 284/304 forms passing
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
This commit is contained in:
parent
cdcf569506
commit
b20536d1e3
31 changed files with 1348 additions and 65 deletions
18
test-parse-utils.janet
Normal file
18
test-parse-utils.janet
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
(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))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue