cocoa.apple-script: add APPLESCRIPT: syntax for defining words.

diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
index 9ca06dab34a7570bba2d805675622494429b1dee..f3cb8ec798d7209e80ade3fa95c93847871dca29 100644 (file)
--- a/basis/cocoa/apple-script/apple-script.factor
+++ b/basis/cocoa/apple-script/apple-script.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2013 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: cocoa cocoa.application cocoa.classes kernel ;
+USING: cocoa cocoa.application cocoa.classes kernel parser
+multiline words ;
 
 IN: cocoa.apple-script
 
@@ -9,3 +10,7 @@ IN: cocoa.apple-script
     [ NSAppleScript -> alloc ] dip
     <NSString> -> initWithSource: -> autorelease
     f -> executeAndReturnError: drop ;
+
+SYNTAX: APPLESCRIPT:
+    scan-new-word ";APPLESCRIPT" parse-multiline-string
+    [ run-apple-script ] curry ( -- ) define-declared ;