From 1d885a407c49dc323abaf5a55405085cfc34d9c9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 20 Feb 2004 17:02:34 +0000 Subject: [PATCH] for Unicode... original commit: 3f4e12ed29458634f5ff799f36794d20b70dcdb2 --- collects/framework/private/main.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index 84d28de3..4f4461d0 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -56,7 +56,9 @@ (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) string?) + (preferences:set-default 'framework:last-directory (find-system-path 'home-dir) path-string?) + (preferences:set-un/marshall 'framework:last-directory path->bytes bytes->path) + (preferences:set-default 'framework:recent-max-count 50 (lambda (x) (and (number? x)