escape-strings: Add a tag-payload word to make a string payload and tag.

diff --git a/basis/escape-strings/escape-strings.factor b/basis/escape-strings/escape-strings.factor
index 423b4051fe02db5a9bd9b591278ad6330fa031d1..9502fb1da0a0221ded2113c1029b920c0975aa30 100644 (file)
--- a/basis/escape-strings/escape-strings.factor
+++ b/basis/escape-strings/escape-strings.factor
@@ -28,6 +28,9 @@ IN: escape-strings
 : escape-strings ( strs -- str )
     [ escape-string ] map concat escape-string ;
 
+: tag-payload ( str tag -- str' )
+    [ escape-string ] dip prepend ;
+
 : escape-simplest ( str -- str' )
     dup { CHAR: ' CHAR: " CHAR: \r CHAR: \n CHAR: \s } counts {
         { [ dup { CHAR: ' CHAR: \r CHAR: \n CHAR: \s } values-of sum 0 = ] [ drop "'" prepend ] }