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

add missing inner call

Browse Source 
original commit: 12d670b5a3b792ee3c343d311521e54848708f40
This commit is contained in:
Robby Findler 2013-01-05 17:30:46 -06:00
parent 783eefb38a
commit 2940bac035
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/editor.rkt
View File

@ -555,7 +555,8 @@
(inner (void) on-save-file name format)) (inner (void) on-save-file name format))
(define/augment (after-save-file success?) (define/augment (after-save-file success?)
(when success? (when success?
(set! auto-save-error? #f))) (set! auto-save-error? #f))
(inner (void) after-save-file success?))
(define/augment (on-close) (define/augment (on-close)
(remove-autosave) (remove-autosave)