Call collect_output() before dropping mailbox. Added exception handling. Added user-name variable.

@@ -29,12 +29,33 @@ run_main (int argc, char *argv[])
 }
 }
 
 
 SCM _current_mailbox;
 SCM _current_mailbox;
+SCM _user_name;
+
+static SCM
+catch_body (void *data)
+{
+  if (program_file)
+    scm_primitive_load (scm_makfrom0str (program_file));
+
+  if (program_expr)
+    scm_eval_0str (program_expr);
+
+  return SCM_BOOL_F;
+}
+
+static SCM
+catch_handler (void *data, SCM tag, SCM throw_args)
+{
+  collect_drop_mailbox ();
+  return scm_handle_by_message ("guimb", tag, throw_args);
+}
 
 
 void
 void
 _scheme_main ()
 _scheme_main ()
 {
 {
   SCM *scm_loc;
   SCM *scm_loc;
-
+  int rc;
+  
   if (debug_guile)
   if (debug_guile)
     {
     {
       SCM_DEVAL_P = 1;
       SCM_DEVAL_P = 1;
@@ -43,7 +64,7 @@ _scheme_main ()
       SCM_RESET_DEBUG_MODE;
       SCM_RESET_DEBUG_MODE;
     }
     }
 
 
-  /* Initialize scheme library */
+/* Initialize scheme library */
   mu_scm_init ();
   mu_scm_init ();
 
 
   /* Provide basic primitives */
   /* Provide basic primitives */
@@ -53,12 +74,15 @@ _scheme_main ()
   scm_loc = SCM_CDRLOC (scm_sysintern ("current-mailbox", SCM_EOL));
   scm_loc = SCM_CDRLOC (scm_sysintern ("current-mailbox", SCM_EOL));
   *scm_loc = _current_mailbox;
   *scm_loc = _current_mailbox;
 
 
-  if (program_file)
-    scm_primitive_load (scm_makfrom0str (program_file));
+  _user_name = user_name ? scm_makfrom0str (user_name) : SCM_BOOL_F;
+  scm_loc = SCM_CDRLOC (scm_sysintern ("user-name", SCM_EOL));
+  *scm_loc = _user_name;
 
 
-  if (program_expr)
-    scm_eval_0str (program_expr);
+  scm_internal_lazy_catch (SCM_BOOL_T,
+			   catch_body, NULL,
+			   catch_handler, NULL);
 
 
+  rc = collect_output ();
   collect_drop_mailbox ();
   collect_drop_mailbox ();
-
+  exit (rc);
 }
 }