suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

swapped args to put-file

Browse Source 
original commit: 4af8f4846d1294132f4fb8cf66c1c4812bc57470
This commit is contained in:
Matthew Flatt 2003-12-16 16:10:47 +00:00
parent ed64e242b2
commit eda8f45e77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.ss
View File

@ -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))))))