/[guile]/guile/guile-core/libguile/debug.c
ViewVC logotype

Diff of /guile/guile-core/libguile/debug.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.97 by mvo, Sun Nov 25 15:21:07 2001 UTC revision 1.98 by dirk, Thu Jan 10 20:52:44 2002 UTC
# Line 362  SCM_DEFINE (scm_procedure_name, "procedu Line 362  SCM_DEFINE (scm_procedure_name, "procedu
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
# Line 384  SCM_DEFINE (scm_procedure_source, "proce Line 384  SCM_DEFINE (scm_procedure_source, "proce
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,

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26