362 |
SCM name = scm_procedure_property (proc, scm_sym_name); |
SCM name = scm_procedure_property (proc, scm_sym_name); |
363 |
#if 0 |
#if 0 |
364 |
/* Source property scm_sym_procname not implemented yet... */ |
/* Source property scm_sym_procname not implemented yet... */ |
365 |
SCM name = scm_source_property (SCM_CADR (SCM_CODE (proc)), scm_sym_procname); |
SCM name = scm_source_property (SCM_CAR (SCM_CLOSURE_BODY (proc)), scm_sym_procname); |
366 |
if (SCM_FALSEP (name)) |
if (SCM_FALSEP (name)) |
367 |
name = scm_procedure_property (proc, scm_sym_name); |
name = scm_procedure_property (proc, scm_sym_name); |
368 |
#endif |
#endif |
384 |
case scm_tcs_closures: |
case scm_tcs_closures: |
385 |
{ |
{ |
386 |
SCM formals = SCM_CLOSURE_FORMALS (proc); |
SCM formals = SCM_CLOSURE_FORMALS (proc); |
387 |
SCM src = scm_source_property (SCM_CDR (SCM_CODE (proc)), scm_sym_copy); |
SCM src = scm_source_property (SCM_CLOSURE_BODY (proc), scm_sym_copy); |
388 |
if (!SCM_FALSEP (src)) |
if (!SCM_FALSEP (src)) |
389 |
return scm_cons2 (scm_sym_lambda, formals, src); |
return scm_cons2 (scm_sym_lambda, formals, src); |
390 |
return scm_cons (scm_sym_lambda, |
return scm_cons (scm_sym_lambda, |