401 |
|
|
402 |
SCM scm_f_apply; |
SCM scm_f_apply; |
403 |
|
|
|
#ifdef DEBUG_EXTENSIONS |
|
404 |
SCM_GLOBAL_SYMBOL (scm_sym_enter_frame, "enter-frame"); |
SCM_GLOBAL_SYMBOL (scm_sym_enter_frame, "enter-frame"); |
405 |
SCM_GLOBAL_SYMBOL (scm_sym_apply_frame, "apply-frame"); |
SCM_GLOBAL_SYMBOL (scm_sym_apply_frame, "apply-frame"); |
406 |
SCM_GLOBAL_SYMBOL (scm_sym_exit_frame, "exit-frame"); |
SCM_GLOBAL_SYMBOL (scm_sym_exit_frame, "exit-frame"); |
407 |
SCM_GLOBAL_SYMBOL (scm_sym_trace, "trace"); |
SCM_GLOBAL_SYMBOL (scm_sym_trace, "trace"); |
|
#endif |
|
408 |
|
|
409 |
|
|
410 |
/* Check that the body denoted by XORIG is valid and rewrite it into |
/* Check that the body denoted by XORIG is valid and rewrite it into |
1282 |
unmemocopy (SCM x, SCM env) |
unmemocopy (SCM x, SCM env) |
1283 |
{ |
{ |
1284 |
SCM ls, z; |
SCM ls, z; |
|
#ifdef DEBUG_EXTENSIONS |
|
1285 |
SCM p; |
SCM p; |
|
#endif |
|
1286 |
if (!SCM_CONSP (x)) |
if (!SCM_CONSP (x)) |
1287 |
return x; |
return x; |
|
#ifdef DEBUG_EXTENSIONS |
|
1288 |
p = scm_whash_lookup (scm_source_whash, x); |
p = scm_whash_lookup (scm_source_whash, x); |
|
#endif |
|
1289 |
switch (SCM_ITAG7 (SCM_CAR (x))) |
switch (SCM_ITAG7 (SCM_CAR (x))) |
1290 |
{ |
{ |
1291 |
case SCM_BIT8(SCM_IM_AND): |
case SCM_BIT8(SCM_IM_AND): |
1494 |
x = SCM_CDR (x); |
x = SCM_CDR (x); |
1495 |
} |
} |
1496 |
SCM_SETCDR (z, x); |
SCM_SETCDR (z, x); |
|
#ifdef DEBUG_EXTENSIONS |
|
1497 |
if (!SCM_FALSEP (p)) |
if (!SCM_FALSEP (p)) |
1498 |
scm_whash_insert (scm_source_whash, ls, p); |
scm_whash_insert (scm_source_whash, ls, p); |
|
#endif |
|
1499 |
return ls; |
return ls; |
1500 |
} |
} |
1501 |
|
|
3433 |
SCM |
SCM |
3434 |
SCM_APPLY (SCM proc, SCM arg1, SCM args) |
SCM_APPLY (SCM proc, SCM arg1, SCM args) |
3435 |
{ |
{ |
|
#ifdef DEBUG_EXTENSIONS |
|
3436 |
#ifdef DEVAL |
#ifdef DEVAL |
3437 |
scm_t_debug_frame debug; |
scm_t_debug_frame debug; |
3438 |
scm_t_debug_info debug_vect_body; |
scm_t_debug_info debug_vect_body; |
3446 |
if (SCM_DEBUGGINGP) |
if (SCM_DEBUGGINGP) |
3447 |
return scm_dapply (proc, arg1, args); |
return scm_dapply (proc, arg1, args); |
3448 |
#endif |
#endif |
|
#endif |
|
3449 |
|
|
3450 |
SCM_ASRTGO (SCM_NIMP (proc), badproc); |
SCM_ASRTGO (SCM_NIMP (proc), badproc); |
3451 |
|
|
4477 |
/* At this point, scm_deval and scm_dapply are generated. |
/* At this point, scm_deval and scm_dapply are generated. |
4478 |
*/ |
*/ |
4479 |
|
|
|
#ifdef DEBUG_EXTENSIONS |
|
4480 |
# define DEVAL |
# define DEVAL |
4481 |
# include "eval.c" |
# include "eval.c" |
|
#endif |
|
4482 |
|
|
4483 |
|
|
4484 |
|
|