From 5a19eaca21b00dab8c109e6d305a027d68c3cddf Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 25 Jun 2006 20:50:14 +0000 Subject: [PATCH] finder:get-file -> get-file svn: r3471 --- collects/drscheme/private/frame.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/drscheme/private/frame.ss b/collects/drscheme/private/frame.ss index 58037530d7..ec50d84621 100644 --- 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)])