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

..

Browse Source 
original commit: 29007a1cbf8687da3220b3d242177bac1f8a75bc
This commit is contained in:
Robby Findler 2002-09-16 03:11:18 +00:00
parent e92ca5da12
commit fdae7bf539
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/finder.ss
View File

@ -34,8 +34,8 @@
(message-box (string-constant error) msg)
#f)))))
(define (set-last-directory dir) (preferences:set 'framework:directory dir))
(define (get-last-directory) (preferences:get 'framework:directory))
(define (set-last-directory dir) (preferences:set 'framework:last-directory dir))
(define (get-last-directory) (preferences:get 'framework:last-directory))
(define make-relative
(lambda (s) s))