<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>beforeRunningCommand</key>
	<string>nop</string>
	<key>command</key>
	<string># $ cat `which arc`
# cd /Users/aran/Projects/arc/arc2
# ../MzScheme\ v352/bin/mzscheme -m -f as.scm
 
# In ac.scm: 
#
# (define (ac s env)
#   (cond ((string? s) (string-copy s))  ; to avoid immutable strings
#         ((literal? s) s)
#         ((eqv? s 'nil) (list 'quote 'nil))
#         ((ssyntax? s) (ac (expand-ssyntax s) env))
#         ((symbol? s) (ac-var-ref s env))
#         ((ssyntax? (xcar s)) (ac (cons (expand-ssyntax (car s)) (cdr s)) env))
#         ((eq? (xcar s) 'quote) (list 'quote (ac-niltree (cadr s))))
#         ((eq? (xcar s) 'quasiquote) (ac-qq (cadr s) env))
#         ((eq? (xcar s) 'if) (ac-if (cdr s) env))
#         ((eq? (xcar s) 'fn) (ac-fn (cadr s) (cddr s) env))
#         ((eq? (xcar s) 'set) (ac-set (cdr s) env))
#         ; this line could be removed without changing semantics
#         ((eq? (xcar (xcar s)) 'compose) (ac (decompose (cdar s) (cdr s)) env))
#         ((pair? s) (ac-call (car s) (cdr s) env))
#-------&gt; ((eq? eof s) (exit))
#         (#t (err "Bad object in expression" s))))
 
 
echo "&lt;pre&gt;"
arc
echo "&lt;/pre&gt;"</string>
	<key>fallbackInput</key>
	<string>document</string>
	<key>input</key>
	<string>selection</string>
	<key>keyEquivalent</key>
	<string>@r</string>
	<key>name</key>
	<string>Run</string>
	<key>output</key>
	<string>showAsHTML</string>
	<key>scope</key>
	<string>source.arc</string>
	<key>uuid</key>
	<string>BAEB2297-298C-4508-849D-957CB9E9FDC5</string>
</dict>
</plist>