From 6069aef79041a3123baacdfac40879db2b82c0b7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 11 Oct 2013 08:17:25 -0700
Subject: [PATCH] cocoa.apple-script: add APPLESCRIPT: syntax for defining
words.
---
basis/cocoa/apple-script/apple-script.factor | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
index 9ca06dab34..f3cb8ec798 100644
--- 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 ;