lists: first pass at some cleanup.

[factor.git] / extra / rosetta-code / hamming-lazy / hamming-lazy.factor

diff --git a/extra/rosetta-code/hamming-lazy/hamming-lazy.factor b/extra/rosetta-code/hamming-lazy/hamming-lazy.factor
index 55cf30059f3abb4be6e2613cb349d339246de0a2..e6b37bddf6bea6f84abebf8506cd063876f6b15f 100644 (file)
--- a/extra/rosetta-code/hamming-lazy/hamming-lazy.factor
+++ b/extra/rosetta-code/hamming-lazy/hamming-lazy.factor
@@ -32,6 +32,6 @@ IN: rosetta-code.hamming-lazy
 :: hamming ( -- hamming )
     f :> h!
     [ 1 ] [
-        h 2 3 5 [ '[ _ * ] lazy-map ] tri-curry@ tri
+        h 2 3 5 [ '[ _ * ] lmap-lazy ] tri-curry@ tri
         sort-merge sort-merge
     ] lazy-cons h! h ;