core: Add the shuffler words but without primitives.

[factor.git] / extra / html / parser / utils / utils.factor

diff --git a/extra/html/parser/utils/utils.factor b/extra/html/parser/utils/utils.factor
index 0b9474a7f1784cdc6c1a49664d162212244e3297..ddb7a062b3b75dc6c5ec6cd8707c9c62ec6b2fc0 100644 (file)
--- a/extra/html/parser/utils/utils.factor
+++ b/extra/html/parser/utils/utils.factor
@@ -4,7 +4,7 @@ USING: kernel quoting sequences splitting ;
 IN: html.parser.utils
 
 : trim1 ( seq ch -- newseq )
-    [ [ ?head-slice drop ] [ ?tail-slice drop ] bi ] 2keep drop like ;
+    [ [ ?head-slice drop ] [ ?tail-slice drop ] bi ] keepd like ;
 
 : single-quote ( str -- newstr ) "'" dup surround ;