/[mailutils]/mailutils/guimb/collect.c
ViewVC logotype

Diff of /mailutils/guimb/collect.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by gray, Mon Jan 21 06:23:15 2002 UTC revision 1.7 by gray, Mon Jan 21 14:57:19 2002 UTC
# Line 188  collect_drop_mailbox () Line 188  collect_drop_mailbox ()
188      }      }
189  }  }
190    
191  int  SCM
192    guimb_catch_body (void *data, mailbox_t unused)
193    {
194      struct guimb_data *gd = data;
195      if (gd->program_file)
196        scm_primitive_load (scm_makfrom0str (gd->program_file));
197    
198      if (gd->program_expr)
199        scm_eval_0str (gd->program_expr);
200    
201      return SCM_BOOL_F;
202    }
203    
204    SCM
205  guimb_catch_handler (void *unused, SCM tag, SCM throw_args)  guimb_catch_handler (void *unused, SCM tag, SCM throw_args)
206  {  {
207    collect_drop_mailbox ();    collect_drop_mailbox ();
# Line 202  guimb_exit (void *unused1, mailbox_t unu Line 215  guimb_exit (void *unused1, mailbox_t unu
215    collect_drop_mailbox ();    collect_drop_mailbox ();
216    return rc;    return rc;
217  }  }
218    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26