Rename symbols to be consistent

extra/io/launcher/launcher-docs.factor

@@ -24,11 +24,11 @@ $nl
 HELP: +environment-mode+
 { $description "Launch descriptor key. Must equal of the following:"
     { $list
-        { $link prepend-environment }
-        { $link replace-environment }
-        { $link append-environment }
+        { $link +prepend-environment+ }
+        { $link +replace-environment+ }
+        { $link +append-environment+ }
     }
-"Default value is " { $link append-environment } "."
+"Default value is " { $link +append-environment+ } "."
 } ;
 
 HELP: +stdin+
@@ -61,17 +61,17 @@ HELP: +stderr+
 HELP: +closed+
 { $description "Possible value for " { $link +stdin+ } ", " { $link +stdout+ } ", and " { $link +stderr+ } " launch descriptors." } ;
 
-HELP: prepend-environment
+HELP: +prepend-environment+
 { $description "Possible value of " { $link +environment-mode+ } " launch descriptor key. The child process environment consists of the value of the " { $link +environment+ } " key together with the current environment, with entries from the current environment taking precedence."
 $nl
 "This is used in situations where you want to spawn a child process with some default environment variables set, but allowing the user to override these defaults by changing the environment before launching Factor." } ;
 
-HELP: replace-environment
+HELP: +replace-environment+
 { $description "Possible value of " { $link +environment-mode+ } " launch descriptor key. The child process environment consists of the value of the " { $link +environment+ } " key."
 $nl
 "This is used in situations where you want full control over a child process environment, perhaps for security or testing." } ;
 
-HELP: append-environment
+HELP: +append-environment+
 { $description "Possible value of " { $link +environment-mode+ } " launch descriptor key. The child process environment consists of the current environment together with the value of the " { $link +environment+ } " key, with entries from the " { $link +environment+ } " key taking precedence."
 $nl
 "This is used in situations where you want a spawn child process with some overridden environment variables." } ;

extra/io/launcher/launcher.factor

@@ -35,9 +35,9 @@ SYMBOL: +stdout+
 SYMBOL: +stderr+
 SYMBOL: +closed+
 
-SYMBOL: prepend-environment
-SYMBOL: replace-environment
-SYMBOL: append-environment
+SYMBOL: +prepend-environment+
+SYMBOL: +replace-environment+
+SYMBOL: +append-environment+
 
 : default-descriptor
     H{
@@ -45,7 +45,7 @@ SYMBOL: append-environment
         { +arguments+ f }
         { +detached+ f }
         { +environment+ H{ } }
-        { +environment-mode+ append-environment }
+        { +environment-mode+ +append-environment+ }
     } ;
 
 : with-descriptor ( desc quot -- )
@@ -53,14 +53,14 @@ SYMBOL: append-environment
 
 : pass-environment? ( -- ? )
     +environment+ get assoc-empty? not
-    +environment-mode+ get replace-environment eq? or ;
+    +environment-mode+ get +replace-environment+ eq? or ;
 
 : get-environment ( -- env )
     +environment+ get
     +environment-mode+ get {
-        { prepend-environment [ os-envs union ] }
-        { append-environment [ os-envs swap union ] }
-        { replace-environment [ ] }
+        { +prepend-environment+ [ os-envs union ] }
+        { +append-environment+ [ os-envs swap union ] }
+        { +replace-environment+ [ ] }
     } case ;
 
 GENERIC: >descriptor ( desc -- desc )