1 ! Copyright (C) 2013 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: cocoa cocoa.application cocoa.classes kernel parser words ;
8 : run-apple-script ( str -- )
9 [ NSAppleScript -> alloc ] dip
10 <NSString> -> initWithSource: -> autorelease
11 f -> executeAndReturnError: drop ;
14 scan-new-word scan-object
15 [ run-apple-script ] curry ( -- ) define-declared ;