suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: a2199634fe84023c3d26a85d46a7d817ca6a3f0c
This commit is contained in:
Robby Findler 2004-02-24 14:46:01 +00:00
parent 5c51ae9581
commit 802cb6c7d8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/main.ss
View File

@ -57,7 +57,12 @@
(lambda (l) (make-object color% (car l) (cadr l) (caddr l))))
(preferences:set-default 'framework:last-directory (find-system-path 'home-dir) path-string?)
(preferences:set-un/marshall 'framework:last-directory path->bytes bytes->path)
;; 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
(lambda (x)
(and (bytes? x)
(bytes->path x))))
(preferences:set-default 'framework:recent-max-count
50