In MAIN: get directory from args parameter, not from command-line;
allows to start from within scsh manually
This commit is contained in:
parent
246c2b46ad
commit
b4c3ad937e
|
@ -120,7 +120,7 @@ exec scsh -lel SSAX-4.9/load.scm -lel sunet-2.1/load.scm -dm -o http-test -e mai
|
|||
|
||||
(define (main args)
|
||||
(with-cwd
|
||||
(file-name-directory (car (command-line)))
|
||||
(file-name-directory (car args))
|
||||
(let ((options (make-options-from-args (cdr args))))
|
||||
|
||||
(format #t "Going to run Webserver with:
|
||||
|
|
Loading…
Reference in New Issue