@@ -63,13 +63,14 @@ (values result)))) (defun main-with-cleanup (stage) - "Execute main loop, and when it ends remove everything from stage, disconnect all stage lisp signals and hide the stage." + "Execute main loop, and when it ends remove everything from stage, disconnect all stage lisp signals, cleanup current pool and hide the stage." (%actor-show stage) (%main) (add-idle (compose (constantly nil) #'%main-quit)) (%group-remove-all stage) (disconnect-lisp-signals stage) + (collect-pool *current-pool*) (%actor-hide stage) (%main)) wrappers.lisp d2197930bb5769907c94ba8cdcf06170e14a7dec Ramarren ramarren@gmail.com http://github.com/Ramarren/cffi-clutter/commit/f2dddcb34b350eaa09ddcd68a7ae56ff1b3073b8 f2dddcb34b350eaa09ddcd68a7ae56ff1b3073b8 2009-07-10T00:50:35-07:00 2009-07-10T00:50:35-07:00 Collect the pool before relaunching the main loop to destroy any top level behaviours. ed0c07ee02e5db196c1c2a228a11d93236c62900 Ramarren ramarren@gmail.com