MacOS

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3049 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 4 insertions, 1 deletions

diff --git a/maccaml/main.c b/maccaml/main.c
index cef02288d..9f545efd7 100644
--- a/maccaml/main.c
+++ b/maccaml/main.c
@@ -116,7 +116,10 @@ int main (void)
     quit_requested = 1;
     exit (0);
   }
-  while (!launch_toplevel_requested) GetAndProcessEvents (waitEvent, 0, 0);
+  while (!launch_toplevel_requested){
+    GetAndProcessEvents (waitEvent, 0, 0);
+    if (quit_requested) exit (0);
+  }
   err = launch_caml_main ();
   if (err != noErr) ErrorAlertGeneric (err);
   exit (0);