core: Add the shuffler words but without primitives.

[factor.git] / basis / xml / tokenize / tokenize.factor

diff --git a/basis/xml/tokenize/tokenize.factor b/basis/xml/tokenize/tokenize.factor
index 0d04064022586212103c401b3e5b5c787f0ddfc7..8d795851c9b0b4c17a5c996c3e41247e2c3d8620 100644 (file)
--- a/basis/xml/tokenize/tokenize.factor
+++ b/basis/xml/tokenize/tokenize.factor
@@ -87,7 +87,7 @@ HINTS: next* { spot } ;
     [ blank? not ] skip-until ;
 
 : next-matching ( pos ch str -- pos' )
-    [ over ] dip nth eq? [ 1 + ] [ drop 0 ] if ; inline
+    overd nth eq? [ 1 + ] [ drop 0 ] if ; inline
 
 : string-matcher ( str -- quot: ( pos char -- pos ? ) )
     dup length 1 - '[ _ next-matching dup _ > ] ; inline