Using "same?" in more places.

[factor.git] / basis / wrap / words / words.factor

diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index 303876d916f02b88b6160ae7775b06a70f828ab6..90113c289e563828ce14e34084b7efa08a6f4767 100644 (file)
--- a/basis/wrap/words/words.factor
+++ b/basis/wrap/words/words.factor
@@ -18,7 +18,7 @@ C: <word> word
     [ ?first ] [ ?second ] bi ;
 
 : split-words ( seq -- half-elements )
-    [ [ break?>> ] bi@ = ] monotonic-split ;
+    [ [ break?>> ] same? ] monotonic-split ;
 
 : ?first-break ( seq -- newseq f/element )
     dup first first break?>>