sequences: Add 1surround which is dup surround

[factor.git] / extra / modern / html / html.factor

diff --git a/extra/modern/html/html.factor b/extra/modern/html/html.factor
index 483eaf64ff5269b05c88d6dd4be2e1111cd4ebe4..cbae2fa824e39619717b5c9f49d2aa456f0061ac 100644 (file)
--- a/extra/modern/html/html.factor
+++ b/extra/modern/html/html.factor
@@ -180,8 +180,8 @@ GENERIC: write-html ( tag -- )
 
 : >value ( obj -- string )
     {
-        { [ dup squote? ] [ payload>> "'" dup surround ] }
-        { [ dup dquote? ] [ payload>> "\"" dup surround ] }
+        { [ dup squote? ] [ payload>> "'" 1surround ] }
+        { [ dup dquote? ] [ payload>> "\"" 1surround ] }
         [ ]
     } cond ;