sequences.extras: fix longest-subseq missing 1 +

mrjbq7 · Jun 30, 2024 · 15f20bb · 15f20bb
1 parent 484e646
commit 15f20bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
@@ -48,7 +48,7 @@ IN: sequences.extras
             elt1 y seq2 nth-unsafe = [
                 y x table nth-unsafe nth-unsafe 1 + :> len
                 len y 1 + tab1 set-nth-unsafe
-                len n > [ len n! x end! ] when
+                len n > [ len n! x 1 + end! ] when
             ] [ 0 y 1 + tab1 set-nth-unsafe ] if
         ] each
     ] each end n - end seq1 subseq ;