From 887aef7e763cce3bbebe4aa9bf075d3acff34850 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 10 Jan 2010 15:07:52 +0000 Subject: [PATCH] changed the external browser default preference so that it doesn't crash drscheme on startup (in future releases, if more browsers come out) svn: r17594 --- collects/browser/external.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/browser/external.ss b/collects/browser/external.ss index c567e2d132..7e18c9dc7c 100644 --- a/collects/browser/external.ss +++ b/collects/browser/external.ss @@ -20,7 +20,10 @@ (fw:preferences:set-default 'external-browser - (get-preference 'external-browser (lambda () #f)) + (let ([ll-pref (get-preference 'external-browser (lambda () #f))]) + (if (raw:browser-preference? ll-pref) + ll-pref + 'firefox)) raw:browser-preference?) (define http-proxy-preference 'plt:http-proxy)