From b4c3ad937ef7c1ce5566de557fceea3c956fb9e0 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 12 May 2004 19:44:06 +0000 Subject: [PATCH] In MAIN: get directory from args parameter, not from command-line; allows to start from within scsh manually --- start-web-server | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/start-web-server b/start-web-server index 5bd2fb8..7ac48c2 100755 --- a/start-web-server +++ b/start-web-server @@ -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: