core: Add words/unwords/unwords-as and use them.

[factor.git] / extra / rpn / rpn.factor

diff --git a/extra/rpn/rpn.factor b/extra/rpn/rpn.factor
index fd39ed09a8e64a2cda5f1c68fd342c63c93e7965..f01f28ad9c58c8d18b2b31b56bf46834f912a6eb 100644 (file)
--- a/extra/rpn/rpn.factor
+++ b/extra/rpn/rpn.factor
@@ -19,7 +19,7 @@ M: div-insn eval-insn drop [ / ] binary-op ;
 M: push-insn eval-insn value>> swons ;
 
 : rpn-tokenize ( string -- string' )
-    " " split harvest sequence>list ;
+    words harvest sequence>list ;
 
 : rpn-parse ( string -- tokens )
     rpn-tokenize [