/as.scm

 1; mzscheme -m -f as.scm
 2; (tl)
 3; (asv)
 4; http://localhost:8080
 5
 6(require mzscheme) ; promise we won't redefine mzscheme bindings
 7
 8(require "ac.scm") 
 9(require "brackets.scm")
10(use-bracket-readtable)
11
12(parameterize ((current-directory (current-load-relative-directory)))
13  (aload "arc.arc")
14  (aload "libs.arc"))
15
16(let ((args (vector->list (current-command-line-arguments))))
17  (if (null? args)
18    (tl)
19    ; command-line arguments are script filenames to execute
20    (for-each (lambda (f) (aload f)) args)))
21