(define arc-dir* (getenv "ARC")) (define start-dir* (path->string (current-directory))) (current-directory arc-dir*) (require mzscheme) ... ; other requires from as.scm (current-directory start-dir*) (tl)
(parameterize ((current-directory (current-load-relative-directory))) (aload "arc.arc") (aload "libs.arc"))
-----