mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* Some simplification, basically a postscriptum to the previous patch.

Browse source
This commit is contained in:
Dirk Herrmann 2001-04-19 15:20:27 +00:00
parent 726d810a75
commit 4daecfeecc
2 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* debug.c (scm_procedure_source): Use SCM_CLOSURE_FORMALS more
consistently.
2001-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* procs.h (SCM_CLOSURE_FORMALS): New macro. * procs.h (SCM_CLOSURE_FORMALS): New macro.

17
libguile/debug.c
View file

@ -426,16 +426,15 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0,
switch (SCM_TYP7 (proc)) { switch (SCM_TYP7 (proc)) {
case scm_tcs_closures: case scm_tcs_closures:
{ {
SCM src; SCM formals = SCM_CLOSURE_FORMALS (proc);
src = scm_source_property (SCM_CDR (SCM_CODE (proc)), scm_sym_copy); SCM src = scm_source_property (SCM_CDR (SCM_CODE (proc)), scm_sym_copy);
if (! SCM_FALSEP (src)) if (!SCM_FALSEP (src))
return scm_cons2 (scm_sym_lambda, SCM_CLOSURE_FORMALS (proc), src); return scm_cons2 (scm_sym_lambda, formals, src);
src = SCM_CODE (proc);
return scm_cons (scm_sym_lambda, return scm_cons (scm_sym_lambda,
scm_unmemocopy (src, scm_unmemocopy (SCM_CODE (proc),
SCM_EXTEND_ENV (SCM_CAR (src), SCM_EXTEND_ENV (formals,
SCM_EOL, SCM_EOL,
SCM_ENV (proc)))); SCM_ENV (proc))));
} }
case scm_tcs_subrs: case scm_tcs_subrs:
#ifdef CCLO #ifdef CCLO