diff options
| author | Patrick Kingston <patrick@pkingston.xyz> | 2026-01-26 22:59:20 -0500 |
|---|---|---|
| committer | Patrick Kingston <patrick@pkingston.xyz> | 2026-01-26 22:59:20 -0500 |
| commit | 4ce66b32aad2d89178e135c3370251742a96a9f4 (patch) | |
| tree | f1add738579076a8697befa1feb0f2d34bbe5f40 /bible/lzss.clj | |
| parent | f5dab0d68b0c3268016e27bd0d1ba2391017cad7 (diff) | |
Build lzss-er in fullcompressor
Diffstat (limited to 'bible/lzss.clj')
| -rw-r--r-- | bible/lzss.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |