From 4ce66b32aad2d89178e135c3370251742a96a9f4 Mon Sep 17 00:00:00 2001 From: Patrick Kingston Date: Mon, 26 Jan 2026 22:59:20 -0500 Subject: Build lzss-er in fullcompressor --- bible/lzss.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bible/lzss.clj') diff --git a/bible/lzss.clj b/bible/lzss.clj index d6f5a32..09ad409 100644 --- a/bible/lzss.clj +++ b/bible/lzss.clj @@ -90,8 +90,8 @@ (if (and best-match (>= (:length best-match) MIN-MATCH)) ;; Match found (let [len (:length best-match) - #_#_ref-str (str "<" (:offset best-match) "|" len ">") - ref-str "<00|00"] + ref-str (str "<" (:offset best-match) "|" len ">") + #_#_ref-str "<00|00"] (recur (+ cursor len) ;; Update index for every triplet we skip (simplification: just first) (assoc index triplet (conj (get index triplet []) cursor)) -- cgit v1.2.3