mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* debug.c, debug.h (scm_reverse_lookup): Added.

Browse source 
(scm_procedure_name): Use scm_reverse_lookup to lookup the name of
internal procedure definitions; Don't use scm_i_inner_name.
This commit is contained in:
Mikael Djurfeldt 1999-07-29 21:11:51 +00:00
parent c75512d6a7
commit 7e3a72763c
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/debug.h
View file

@ -185,6 +185,7 @@ extern int scm_ready_p SCM_P ((void));
extern void debug_print SCM_P ((SCM obj)); extern void debug_print SCM_P ((SCM obj));
extern SCM scm_debug_object_p SCM_P ((SCM obj)); extern SCM scm_debug_object_p SCM_P ((SCM obj));
extern SCM scm_local_eval SCM_P ((SCM exp, SCM env)); extern SCM scm_local_eval SCM_P ((SCM exp, SCM env));
extern SCM scm_reverse_lookup SCM_P ((SCM env, SCM data));
extern SCM scm_start_stack SCM_P ((SCM id, SCM exp, SCM env)); extern SCM scm_start_stack SCM_P ((SCM id, SCM exp, SCM env));
extern SCM scm_procedure_environment SCM_P ((SCM proc)); extern SCM scm_procedure_environment SCM_P ((SCM proc));
extern SCM scm_procedure_source SCM_P ((SCM proc)); extern SCM scm_procedure_source SCM_P ((SCM proc));