|
(define script-path (dirname (current-filename)))
|
|
(define world-path (cadr (program-arguments)))
|
|
|
|
(let ((addf (lambda (x)
|
|
(add-to-load-path (string-append script-path "/" x)))))
|
|
(add-to-load-path script-path)
|
|
(for-each addf '("aux" "tracks" "webui")))
|