In MAIN: use args parameter instead of command-line for directory;

allows to start from within scsh manually
2004-05-12 19:59:43 +00:00 · 2004-05-12 19:59:43 +00:00 · 5e12e7ec0e
parent 84e22f065e
commit 5e12e7ec0e
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -138,7 +138,7 @@ exec scsh -lel SSAX-4.9/load.scm -lel sunet-2.1/load.scm -dm -o surflet-server -
    
    (define (main args)
      (with-cwd 
-	  (file-name-directory (car (command-line)))
+	  (file-name-directory (car args))
 	(let ((options (make-options-from-args (cdr args))))
 	 (cond ((zero? (user-uid))
 		(set-gid (->gid "nobody"))