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
14 lines
668 B
Text
14 lines
668 B
Text
(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")
|