130 |
static SCM |
static SCM |
131 |
eval_catch_body(void *list) |
eval_catch_body(void *list) |
132 |
{ |
{ |
133 |
return scm_primitive_eval_x((SCM)list); |
return scm_primitive_eval((SCM)list); |
134 |
} |
} |
135 |
|
|
136 |
static SCM |
static SCM |
227 |
} else |
} else |
228 |
val = scm_makfrom0str(p); |
val = scm_makfrom0str(p); |
229 |
|
|
230 |
SCM_SETCAR(cell, scm_list_2(scm_copy_tree(SCM_IM_QUOTE), val)); |
SCM_SETCAR(cell, scm_list_2(SCM_IM_QUOTE, val)); |
231 |
|
|
232 |
if (head == SCM_EOL) |
if (head == SCM_EOL) |
233 |
head = cell; |
head = cell; |
282 |
|
|
283 |
invlist = scm_append( |
invlist = scm_append( |
284 |
SCM_LIST2(SCM_LIST3(procsym, |
SCM_LIST2(SCM_LIST3(procsym, |
285 |
SCM_LIST2(scm_copy_tree(SCM_IM_QUOTE), |
SCM_LIST2(SCM_IM_QUOTE, |
286 |
arg_hdr), |
arg_hdr), |
287 |
SCM_LIST2(scm_copy_tree(SCM_IM_QUOTE), |
SCM_LIST2(SCM_IM_QUOTE, |
288 |
arg_body)), |
arg_body)), |
289 |
rest_arg)); |
rest_arg)); |
290 |
res = scm_internal_lazy_catch(SCM_BOOL_T, |
res = scm_internal_lazy_catch(SCM_BOOL_T, |