From 938ca240e90b7f180926dc701a7919882663af31 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 8 Mar 2004 04:49:34 +0000 Subject: [PATCH] . original commit: 976e90b5aa75c03cb13caa73ec5a85a8debd8310 --- collects/framework/private/main.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index 2e265777..e7c4ed31 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -58,10 +58,11 @@ (lambda (c) (list (send c red) (send c green) (send c blue))) (lambda (l) (make-object color% (car l) (cadr l) (caddr l)))) - (preferences:set-default 'framework:last-directory (find-system-path 'home-dir) path-string?) - ;; when the set-un/marshall function returns #f, it isn't getting turned into - ;; the default. Hm. - (preferences:set-un/marshall 'framework:last-directory path->bytes + (preferences:set-default 'framework:last-directory (find-system-path 'home-dir) + (lambda (x) (or (not x) path-string?))) + + (preferences:set-un/marshall 'framework:last-directory + (lambda (x) (and (path? x) (path->bytes x))) (lambda (x) (and (bytes? x) (bytes->path x))))