In MAIN: get directory from args parameter, not from command-line;

allows to start from within scsh manually
This commit is contained in:
interp 2004-05-12 19:44:06 +00:00
parent 246c2b46ad
commit b4c3ad937e
1 changed files with 1 additions and 1 deletions

View File

@ -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: