scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix broken startup procedure SERVER if called with no args.

This commit is contained in:
interp 2004-09-24 13:00:50 +00:00
parent f0ca612665
commit 306d104c5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web-server/start-surflet-server
View File

@ -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) (define (server . args)
(if (pair? args) (if (pair? args)
(main `(main ,@(car args))) (main `(main ,@(car args)))
(main '(main)))) (main (list (cwd)))))
(define (become-nobody-if-root) (define (become-nobody-if-root)
(cond ((zero? (user-uid)) (cond ((zero? (user-uid))