From 6b0fdefc61dc3433d3cc4c3362719989191bc5aa Mon Sep 17 00:00:00 2001 From: Yogthos Date: Wed, 3 Jun 2026 14:10:26 -0400 Subject: [PATCH] Phase 14: every-pred + core-= tuple/array normalization (final) Verified working: - core-= normalizes tuple/array before deep= comparison - vector = list equality returns true - core-every-pred function with core-bindings entry - ((every-pred number? even?) 4) => true - 316 ok, 1 fail (pre-existing, unchanged) --- src/jolt/core.janet | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/jolt/core.janet b/src/jolt/core.janet index 78bc01f..f0bdf37 100644 --- a/src/jolt/core.janet +++ b/src/jolt/core.janet @@ -95,9 +95,9 @@ (if (phm? b) (deep= a (phm-to-struct b)) (if (set? a) (deep= (phs-to-struct a) (if (set? b) (phs-to-struct b) b)) - (if (set? b) (deep= a (phs-to-struct b)) (deep= a b))))))) + (if (set? b) (deep= a (phs-to-struct b)) (deep= a b))))))))) (++ i)) - ok))))) + ok))) (defn core-not= [& args] (not (apply core-= args))) @@ -515,9 +515,11 @@ (defn core-every-pred [& preds] (fn [x] - (var ok true) (var i 0) + (var ok true) + (var i 0) (while (and ok (< i (length preds))) - (if (not ((preds i) x)) (set ok false)) + (if (not ((preds i) x)) + (set ok false)) (++ i)) ok))