cocoa.apple-script: Make APPLESCRIPT: take a string.

diff --git a/basis/cocoa/apple-script/apple-script-docs.factor b/basis/cocoa/apple-script/apple-script-docs.factor
index 9890083dea121746f877ccd4ef75285da364ab18..820f08014618dd6bdad0a03ec9bebce53e8efba6 100644 (file)
--- a/basis/cocoa/apple-script/apple-script-docs.factor
+++ b/basis/cocoa/apple-script/apple-script-docs.factor
@@ -8,6 +8,6 @@ HELP: run-apple-script
 { $notes "Currently, return values are unsupported." } ;
 
 HELP: APPLESCRIPT:
-{ $syntax "APPLESCRIPT: word ...applescript... ;APPLESCRIPT" }
-{ $values { "word" "a new word to define" } { "...applescript..." "AppleScript source text" } }
+{ $syntax "APPLESCRIPT: word [[ ...applescript string... ]] " }
+{ $values { "word" "a new word to define" } { "...applescript string..." "AppleScript source text" } }
 { $description "Defines a word that when called will run the provided uncompiled AppleScript. The word has stack effect " { $snippet "( -- )" } " due to return values being currently unsupported." } ;

diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
index f3cb8ec798d7209e80ade3fa95c93847871dca29..123bf4c842f3cd26bb73cc221126ca1af62c4781 100644 (file)
--- a/basis/cocoa/apple-script/apple-script.factor
+++ b/basis/cocoa/apple-script/apple-script.factor
@@ -12,5 +12,5 @@ IN: cocoa.apple-script
     f -> executeAndReturnError: drop ;
 
 SYNTAX: APPLESCRIPT:
-    scan-new-word ";APPLESCRIPT" parse-multiline-string
+    scan-new-word scan-object
     [ run-apple-script ] curry ( -- ) define-declared ;