210 |
printf("%d\n", status); |
printf("%d\n", status); |
211 |
} |
} |
212 |
|
|
213 |
|
static SCM |
214 |
|
eval_close_port(void *port) |
215 |
|
{ |
216 |
|
scm_close_port((SCM)port); |
217 |
|
return SCM_BOOL_F; |
218 |
|
} |
219 |
|
|
220 |
void |
void |
221 |
silent_close_port(SCM port) |
silent_close_port(SCM port) |
222 |
{ |
{ |
225 |
if (setjmp(jmp_env)) |
if (setjmp(jmp_env)) |
226 |
return; |
return; |
227 |
scm_internal_lazy_catch(SCM_BOOL_T, |
scm_internal_lazy_catch(SCM_BOOL_T, |
228 |
scm_close_port, (void*)port, |
eval_close_port, (void*)port, |
229 |
eval_catch_handler, &jmp_env); |
eval_catch_handler, &jmp_env); |
230 |
} |
} |
231 |
|
|