Fix broken startup procedure SERVER if called with no args.

2004-09-24 13:00:50 +00:00 · 2004-09-24 13:00:50 +00:00 · 306d104c5b
parent f0ca612665
commit 306d104c5b
1 changed files with 1 additions and 1 deletions
--- a/web-server/start-surflet-server
+++ b/web-server/start-surflet-server
@ -129,7 +129,7 @@ exec scsh -lel SSAX-4.9/load.scm -lel sunet-2.1/load.scm -dm -o surflet-server -
    (define (server . args)
      (if (pair? args)
 	  (main `(main ,@(car args)))
-	  (main '(main))))
+	  (main (list (cwd)))))
    
    (define (become-nobody-if-root)
      (cond ((zero? (user-uid))