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
14
fix-core.janet
Normal file
14
fix-core.janet
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
(def lines (string/split "\n" (slurp "src/jolt/core.janet")))
|
||||
(def new-lines @[])
|
||||
(each l lines
|
||||
(array/push new-lines l)
|
||||
(if (= l " new-val))")
|
||||
(do
|
||||
(array/push new-lines "")
|
||||
(array/push new-lines "# Hierarchy (minimal stubs for sci bootstrap)")
|
||||
(array/push new-lines "(defn core-derive [tag parent] nil)")
|
||||
(array/push new-lines "(defn core-isa? ([child parent] false) ([h child parent] false))")
|
||||
(array/push new-lines "(defn core-ancestors ([tag] #{}) ([h tag] #{}))")
|
||||
(array/push new-lines "(defn core-descendants ([tag] #{}) ([h tag] #{}))"))))
|
||||
(spit "src/jolt/core.janet" (string/join new-lines "\n"))
|
||||
(print "done")
|
||||
Loading…
Add table
Add a link
Reference in a new issue