Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |