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

[factor.git] / extra / quiz / quiz.factor

diff --git a/extra/quiz/quiz.factor b/extra/quiz/quiz.factor
index 48a62c15ee6842a585beb47341b35c2d393259b0..f5e299cb9447aa1a80d1dd570530dfa5d79efab6 100644 (file)
--- a/extra/quiz/quiz.factor
+++ b/extra/quiz/quiz.factor
@@ -51,7 +51,7 @@ M: multiple-choice-question generate-question*
     [ n>> ] [ generator>> ] bi
     '[ _ generate-question* ] replicate ;
 
-: trim-blanks ( seq -- seq' ) words harvest unwords ;
+: trim-blanks ( seq -- seq' ) split-words harvest join-words ;
 : first-n-letters ( n -- seq ) <iota> [ CHAR: a + 1string ] map ;
 : alphabet-zip ( seq -- zip ) [ length <iota> [ CHAR: a + 1string ] { } map-as ] keep zip ;
 M: question parse-response drop trim-blanks ;
@@ -96,7 +96,7 @@ CONSTANT: stack-shufflers { dup 2dup drop 2drop swap over rot -rot roll -roll 2d
 M: stack-shuffler generate-question*
     n-shufflers>> [ stack-shufflers random ] [ ] replicate-as
     [ inputs first-n-letters ] keep
-    '[ _ _ with-datastack unwords ] ;
+    '[ _ _ with-datastack join-words ] ;
 
 M: question ask-question generated>> . ;
 M: string-response ask-question generated>> . ;