ui.backend.cocoa.tools: use auto-use and eval-with-stack in "Evalute Selection".

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index 49550ecb435e15f20dd53dd315e0392d61e6d033..36134891360c07703295e8f83e523ab40b529e20 100644 (file)
--- a/basis/ui/backend/cocoa/tools/tools.factor
+++ b/basis/ui/backend/cocoa/tools/tools.factor
@@ -3,7 +3,7 @@
 USING: alien.syntax cocoa cocoa.application cocoa.classes
 cocoa.dialogs cocoa.nibs cocoa.pasteboard cocoa.runtime
 cocoa.subclassing core-foundation.strings eval kernel listener
-locals memory namespaces system ui.backend.cocoa
+locals memory namespaces parser system ui.backend.cocoa
 ui.theme.switching ui.tools.browser ui.tools.listener
 vocabs.refresh ;
 FROM: alien.c-types => int void ;
@@ -68,8 +68,11 @@ IN: ui.backend.cocoa.tools
 
     METHOD: void evalToString: id pboard userData: id userData error: id error
     [
-        pboard error
-        [ [ (eval>string) ] with-interactive-vocabs ] do-service
+        pboard error [
+            t auto-use? [
+                [ (eval-with-stack>string) ] with-interactive-vocabs
+            ] with-variable
+        ] do-service
     ] ;
 ;CLASS>