simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

core: Stage 3 — leaf batch: complement/fnil/clojure-version/bigdec/numerator/denominator/supers/munge/test to the overlay

Browse source 
Nine more seed leaves move to 20-coll.clj (verified leaf-by-leaf: defn +
core-bindings entry only, no internal callers). fnil is upgraded to Clojure's
canonical 2/3/4-arity — it patches only the first 1-3 arguments; the old
kernel fn patched every position it had a default for, which Clojure does
not. The rest carry their kernel semantics over unchanged (bigdec is a
double, numerator/denominator throw, supers is #{}, munge rewrites dashes).

16 new spec rows incl. the fnil arity-contract cases. Gate green:
conformance 326x3, suite 4577, full jpm test (2:18 — first full run with the
ctx image cache on main).
This commit is contained in:
Yogthos 2026-06-10 14:56:50 -04:00
parent ee6447adae
commit 3faee14271
4 changed files with 77 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

19
test/spec/functions-spec.janet
View file

@ -35,3 +35,22 @@
["some-fn" "true" "((some-fn even? neg?) 3 4)"]
["memoize" "2" "(do (def c (atom 0)) (def f (memoize (fn [x] (swap! c inc) x))) (f 1) (f 1) (f 2) @c)"]
["trampoline" "10" "(trampoline (fn f [n acc] (if (zero? n) acc (fn [] (f (dec n) (+ acc 2))))) 5 0)"])
# Phase 2 leaf batch (jolt-ded): moved from the Janet seed to 20-coll.clj.
(defspec "clojure.core / leaf batch (complement fnil munge etc.)"
["complement true" "true" "((complement pos?) -1)"]
["complement false" "false" "((complement pos?) 1)"]
["complement multi" "true" "((complement <) 3 2)"]
["fnil patches nil" "1" "((fnil inc 0) nil)"]
["fnil passes non-nil" "6" "((fnil inc 0) 5)"]
["fnil two defaults" "8" "((fnil + 1 2) nil nil 5)"]
["fnil only first 3" "[:a :b :c nil]" "((fnil vector :a :b :c) nil nil nil nil)"]
["fnil in update" "{:k 1}" "(update {} :k (fnil inc 0))"]
["clojure-version" "true" "(string? (clojure-version))"]
["bigdec" "3" "(bigdec 3)"]
["numerator throws" :throws "(numerator 1)"]
["denominator throws" :throws "(denominator 1)"]
["supers empty set" "#{}" "(supers 1)"]
["munge dashes" "\"a_b\"" "(munge \"a-b\")"]
["munge symbol" "\"x_y\"" "(munge (quote x-y))"]
["test no-test" ":no-test" "(test (quote foo))"])