From 12918ae2a59894cd0107a656ea4855bb26ef00ec Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 21 Jul 2018 15:18:29 -0500
Subject: [PATCH] escape-strings: Add a tag-payload word to make a string
 payload and tag.

---
 basis/escape-strings/escape-strings.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/escape-strings/escape-strings.factor b/basis/escape-strings/escape-strings.factor
index 423b4051fe..9502fb1da0 100644
--- 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 ] }