From 28a2411926ed893c8e5ea6fe109a9aca5de6a083 Mon Sep 17 00:00:00 2001 From: Yogthos Date: Wed, 10 Jun 2026 08:16:31 -0400 Subject: [PATCH] =?UTF-8?q?core:=20fix=20stale=20comment=20=E2=80=94=20by-?= =?UTF-8?q?comparator=20sorted=20ctors=20are=20implemented?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/jolt/core.janet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/jolt/core.janet b/src/jolt/core.janet index 0024481..cf089b8 100644 --- a/src/jolt/core.janet +++ b/src/jolt/core.janet @@ -380,8 +380,8 @@ # disj can branch on them. A sorted-map is {:jolt/type :jolt/sorted-map :map STRUCT}; # a sorted-set is {:jolt/type :jolt/sorted-set :items SORTED-ARRAY}. Keys/elements # are assumed Comparable scalars (the premise of a sorted coll); ops return a fresh -# wrapper (persistent — source unchanged). by-comparator ctors are still TODO (no -# stored comparator yet). +# wrapper (persistent — source unchanged). A wrapper may carry an optional :cmp +# (set by the by-comparator constructors) that all derived colls propagate. (defn core-sorted-map? [x] (and (table? x) (= :jolt/sorted-map (x :jolt/type)))) (defn core-sorted-set? [x] (and (table? x) (= :jolt/sorted-set (x :jolt/type)))) (defn core-sorted? [x] (or (core-sorted-map? x) (core-sorted-set? x)))