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

...

Browse Source 
original commit: 6ef1e2d1b02f03143d0fa33c1714863d1f17e65d
This commit is contained in:
Robby Findler 1999-09-15 18:36:19 +00:00
parent b0c889f961
commit 43f7e50ccc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/exit.ss
View File

@ -1,5 +1,6 @@
(unit/sig framework:exit^ (unit/sig framework:exit^
(import [preferences : framework:preferences^] (import mred^
[preferences : framework:preferences^]
[gui-utils : framework:gui-utils^]) [gui-utils : framework:gui-utils^])
(rename (-exit exit)) (rename (-exit exit))
@ -54,5 +55,5 @@
(set! exiting? #t) (set! exiting? #t)
(when (can-exit?) (when (can-exit?)
(on-exit) (on-exit)
(exit)) (queue-callback (lambda () (exit))))
(set! exiting? #f))))) (set! exiting? #f)))))