original commit: 8cd4fb79757fc7aeb401b3cba15f83f7b1ff6e36
This commit is contained in:
Paul Steckler 2002-09-27 20:27:53 +00:00
parent b99617cf86
commit d8eeb4bb81

View File

@ -4,6 +4,7 @@
(lib "cmdline.ss") (lib "cmdline.ss")
"private/server.ss" "private/server.ss"
"private/browser.ss" "private/browser.ss"
"private/start.ss"
"private/plt-browser.ss") "private/plt-browser.ss")
(define launch-browser? #t) (define launch-browser? #t)
@ -57,7 +58,10 @@
(hd-cookie->port hd-cookie))))]) (hd-cookie->port hd-cookie))))])
(help-desk-browser hd-cookie) (help-desk-browser hd-cookie)
; allow browser startup time ; allow browser startup time
(sleep 2))) (sleep (add1 browser-timeout))
; starting an external browser may have failed
; so we may have switched to the internal browser
(set! internal-browser? (use-plt-browser?))))
(cond (cond
[internal-browser? (void)] [internal-browser? (void)]