finder:get-file -> get-file

svn: r3471
2006-06-25 20:50:14 +00:00 · 2006-06-25 20:50:14 +00:00 · 5a19eaca21
commit 5a19eaca21
parent 1884ba9715
1 changed files with 3 additions and 4 deletions
--- a/collects/drscheme/private/frame.ss
+++ b/collects/drscheme/private/frame.ss
@ -177,10 +177,9 @@
                        (parent keybindings-menu)
                        (label (string-constant keybindings-add-user-defined-keybindings))
                        (callback
-                         (λ (x y) 
-                           (let ([filename (finder:get-file #f
-                                                            (string-constant keybindings-choose-user-defined-file)
-                                                            #f "" this)])
+                         (λ (x y)
+                           (let ([filename (get-file (string-constant keybindings-choose-user-defined-file)
+                                                     this)])
                             (when filename
                               (add-keybindings-file filename))))))
                   (let ([ud (preferences:get 'drscheme:user-defined-keybindings)])