PageRenderTime 24ms CodeModel.GetById 18ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 1ms

/as.scm

http://github.com/alimoeeny/arc
Scheme | 21 lines | 11 code | 5 blank | 5 comment | 0 complexity | a84581589ae0fe854481ebab9fd2edb2 MD5 | raw file
 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