From 8a6094229dbba207381b358857ac41a6df9eaae3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 5 Aug 2017 22:33:47 -0500
Subject: [PATCH] cocoa.apple-script: Make APPLESCRIPT: take a string.

---
 basis/cocoa/apple-script/apple-script-docs.factor | 4 ++--
 basis/cocoa/apple-script/apple-script.factor      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/cocoa/apple-script/apple-script-docs.factor b/basis/cocoa/apple-script/apple-script-docs.factor
index 9890083dea..820f080146 100644
--- 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 f3cb8ec798..123bf4c842 100644
--- 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 ;