From fdae7bf539c9f1b9a676f8d61e5f829d3d1f6070 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 16 Sep 2002 03:11:18 +0000 Subject: [PATCH] .. original commit: 29007a1cbf8687da3220b3d242177bac1f8a75bc --- collects/framework/private/finder.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss index 7bbfbc2a..c6af5592 100644 --- a/collects/framework/private/finder.ss +++ b/collects/framework/private/finder.ss @@ -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))