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

db4
John Benediktsson 2013-10-11 08:17:25 -07:00
parent 55f72a8568
commit 6069aef790
1 changed files with 6 additions and 1 deletions

View File

@ -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 ;