From 747ad220127aa932b3034aa15df4cca036ebc596 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Jul 1996 04:27:35 +0000 Subject: [PATCH] *** empty log message *** original commit: 2f340e5e7ef4ca8eeb24b27ea50fbb25397a4692 --- collects/mred/prefs.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss index 7a176936..9f861da2 100644 --- a/collects/mred/prefs.ss +++ b/collects/mred/prefs.ss @@ -228,7 +228,6 @@ (define make-preferences-dialog (lambda () - (save-user-preferences) (letrec* ([frame (make-object (class-asi mred:frame% (public [added-pane refresh-menu])) '() "Preferences")] [panel (make-object mred:vertical-panel% frame)] @@ -284,8 +283,7 @@ (run-once (lambda () (when preferences-dialog - (send preferences-dialog show #f) - (set! preferences-dialog #f)))))) + (send preferences-dialog show #f)))))) (define show-preferences-dialog (lambda () @@ -293,6 +291,7 @@ (lambda () (run-once (lambda () + (save-user-preferences) (if preferences-dialog (send preferences-dialog show #t) (set! preferences-dialog (make-preferences-dialog)))))))))