sequences: Add 1surround which is dup surround

[factor.git] / basis / io / launcher / windows / windows.factor

diff --git a/basis/io/launcher/windows/windows.factor b/basis/io/launcher/windows/windows.factor
index 1ad2122d6b7f7f04029ebb0c61106c568f1893f3..7829ec5d8d99730b8d0db8d2626e4c62f5b99ddf 100644 (file)
--- a/basis/io/launcher/windows/windows.factor
+++ b/basis/io/launcher/windows/windows.factor
@@ -82,7 +82,7 @@ TUPLE: CreateProcess-args
 : escape-argument ( str -- newstr )
     escape-double-quote
     CHAR: \s over member? [
-        fix-trailing-backslashes "\"" dup surround
+        fix-trailing-backslashes "\"" 1surround
     ] when ;
 
 : join-arguments ( args -- cmd-line )