diff options
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)) |