sequences: Add 1surround which is dup surround

[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 ddb7a062b3b75dc6c5ec6cd8707c9c62ec6b2fc0..982820e33839e7f3ee1d417843a5c09422e4c40f 100644 (file)
--- a/extra/html/parser/utils/utils.factor
+++ b/extra/html/parser/utils/utils.factor
@@ -6,9 +6,9 @@ IN: html.parser.utils
 : trim1 ( seq ch -- newseq )
     [ [ ?head-slice drop ] [ ?tail-slice drop ] bi ] keepd like ;
 
-: single-quote ( str -- newstr ) "'" dup surround ;
+: single-quote ( str -- newstr ) "'" 1surround ;
 
-: double-quote ( str -- newstr ) "\"" dup surround ;
+: double-quote ( str -- newstr ) "\"" 1surround ;
 
 : quote ( str -- newstr )
     CHAR: ' over member?