cocoa.apple-script: add APPLESCRIPT: syntax for defining words.
parent
55f72a8568
commit
6069aef790
basis/cocoa/apple-script
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue