move quote-apple-script to cocoa.apple-script and out of elevate.macosx

[factor.git] / basis / elevate / macosx / macosx.factor

diff --git a/basis/elevate/macosx/macosx.factor b/basis/elevate/macosx/macosx.factor
index 81e1cf4a70b1a48537d4c9338db1690955a5571c..69a0e04abe9a7cf92e1885d7663b3c3af8675c34 100644 (file)
--- a/basis/elevate/macosx/macosx.factor
+++ b/basis/elevate/macosx/macosx.factor
@@ -2,18 +2,6 @@ USING: cocoa.apple-script elevate elevate.unix ;
 IN: elevate.macosx
 
 <PRIVATE
-CONSTANT: apple-script-charmap H{
-    { "\n" "\\n" }
-    { "\r" "\\r" }
-    { "\t" "\\t" }
-    { "\"" "\\\"" }
-    { "\\" "\\\\" }
-}
-
-: quote-apple-script ( str -- str' )
-    [ 1string [ apple-script-charmap at ] [ ] bi or ] { } map-as
-    "" join "\"" dup surround ;
-
 : apple-script-elevated ( command -- )
     quote-apple-script
     "do shell script %s with administrator privileges without altering line endings"