sequences: define ?first and ?second.

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

diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index bcf44601707a5bab048c6a198f9bc5ac3a8bbad3..8a2df38e36b66675f7f163e7ad59a6abc7f5fa3d 100644 (file)
--- a/basis/wrap/words/words.factor
+++ b/basis/wrap/words/words.factor
@@ -15,8 +15,7 @@ C: <word> word
     [ append ] [ [ words-length ] bi@ ] 2bi <element> ;
  
 : ?first2 ( seq -- first/f second/f )
-    [ 0 swap ?nth ]
-    [ 1 swap ?nth ] bi ;
+    [ ?first ] [ ?second ] bi ;
 
 : split-words ( seq -- half-elements )
     [ [ break?>> ] bi@ = ] monotonic-split ;