From 3bfce02bd6d24f9e15ef8b3360107d93a3e793d3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Oct 2011 18:14:55 -0500 Subject: [PATCH] fix my stupidity --- collects/framework/private/autosave.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/autosave.rkt b/collects/framework/private/autosave.rkt index 9881f49d20..f094654390 100644 --- a/collects/framework/private/autosave.rkt +++ b/collects/framework/private/autosave.rkt @@ -231,7 +231,7 @@ (disable-line) (send msg2 set-label (string-constant autosave-deleted)))))] [recover - (make-object button% + (make-object button% (string-constant autosave-recover) hp (λ (recover y) @@ -241,7 +241,7 @@ (send msg2 set-label (string-constant autosave-recovered!)) (send msg1 set-label (gui-utils:quote-literal-label (path->string filename-result) - #:quote-amp #f))))))] + #:quote-amp? #f))))))] [disable-line (λ () (send recover enable #f) @@ -302,7 +302,7 @@ (define msg2 (new message% [label (gui-utils:quote-literal-label (path->string filename) - #:quote-amp #f)] + #:quote-amp? #f)] [parent vp])) (define ec (make-object editor-canvas% vp t)) (send t load-file filename)