16 lines
368 B
Scheme
16 lines
368 B
Scheme
(require-library "slatex.ss" "slatex")
|
|
|
|
(case (system-type)
|
|
[(macos)
|
|
|
|
;; set up drag and drop
|
|
(current-load slatex)
|
|
|
|
(for-each slatex (vector->list argv))]
|
|
[(windows unix)
|
|
(when (eq? (vector) argv)
|
|
(error 'slatex "expected a file on the command line~n"))
|
|
(parameterize ([error-escape-handler exit])
|
|
(slatex (vector-ref argv 0)))
|
|
(exit)])
|