From 995d1f0d68f39879f53eb3b832925e49dc4f3ff4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 10 Jan 2010 16:00:35 +0000 Subject: [PATCH] use #f so the default browser will be used svn: r17596 --- collects/browser/external.ss | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/browser/external.ss b/collects/browser/external.ss index 7e18c9dc7c..ca88a0118a 100644 --- a/collects/browser/external.ss +++ b/collects/browser/external.ss @@ -20,10 +20,8 @@ (fw:preferences:set-default 'external-browser - (let ([ll-pref (get-preference 'external-browser (lambda () #f))]) - (if (raw:browser-preference? ll-pref) - ll-pref - 'firefox)) + (let ([pref (get-preference 'external-browser (lambda () #f))]) + (and (raw:browser-preference? pref) pref)) raw:browser-preference?) (define http-proxy-preference 'plt:http-proxy)