Resolved merge.

[factor.git] / basis / lcs / lcs.factor

diff --git a/basis/lcs/lcs.factor b/basis/lcs/lcs.factor
index d32b1998738bf76e7dc17bf03ee59c5d96d1238a..ab4fbd60bb9fdbdf2c7b2daa5ab7768f18b3a950 100644 (file)
--- a/basis/lcs/lcs.factor
+++ b/basis/lcs/lcs.factor
@@ -34,7 +34,7 @@ PRIVATE>
 \r
 : levenshtein ( old new -- n )\r
     [ levenshtein-initialize ] [ levenshtein-step ]\r
-    run-lcs peek peek ;\r
+    run-lcs last last ;\r
 \r
 TUPLE: retain item ;\r
 TUPLE: delete item ;\r