From eda8f45e77008ea8bbe10da852412da0b56fa25a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 16 Dec 2003 16:10:47 +0000 Subject: [PATCH] swapped args to put-file original commit: 4af8f4846d1294132f4fb8cf66c1c4812bc57470 --- collects/framework/private/frame.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 27126a18..97c523d0 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1009,7 +1009,7 @@ (let-values ([(base name dir?) (split-path name)]) (values base name)) (values #f #f))]) - (let ([file (send editor put-file name base)]) + (let ([file (send editor put-file base name)]) (if file (send editor save-file/gui-error file format) #f))))))