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

...

Browse Source 
original commit: f7ae8c9d5a7b33d904bf4022a56dfc0ffe4f9129
This commit is contained in:
Robby Findler 1999-04-07 15:50:37 +00:00
parent c0e53666ab
commit fad83053fa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/editor.ss
View File

@ -263,9 +263,10 @@
(let ([back-name (path-utils:generate-backup-name name)])
(when (or (not (file-exists? back-name))
(file-old? back-name))
(delete-file back-name))
(with-handlers ([(lambda (x) #t) void])
(copy-file name back-name)))))]
(when (file-exists? back-name)
(delete-file back-name))
(with-handlers ([(lambda (x) #t) void])
(copy-file name back-name))))))]
[on-close
(lambda ()
(super-on-close)