factor: words -> split-words, lines -> split-lines, fix errors

[factor.git] / extra / rosetta-code / amb / amb.factor

diff --git a/extra/rosetta-code/amb/amb.factor b/extra/rosetta-code/amb/amb.factor
index 5db404c8d8f4d44c5837119861a34aafb62b181d..89931cd18b0a98575603939107e8d6f747f20480 100644 (file)
--- a/extra/rosetta-code/amb/amb.factor
+++ b/extra/rosetta-code/amb/amb.factor
@@ -38,6 +38,6 @@ CONSTANT: words {
 : select ( seq -- seq' ) [ amb-lazy ] map ;
 
 : search ( -- )
-    words select dup sentence-match? [ unwords ] [ fail ] if . ;
+    words select dup sentence-match? [ join-words ] [ fail ] if . ;
 
 MAIN: search