diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-29 21:11:51 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-29 21:11:51 +0000 |
commit | 7e3a72763caafd0d613acd53cc2b9ab1a9968bc2 (patch) | |
tree | 4353553193b27d7e5473d73996d435d5eb6f7a0c /libguile/debug.h | |
parent | c75512d6a7e27a4b7872968886c8d0d29334859c (diff) | |
download | guile-7e3a72763caafd0d613acd53cc2b9ab1a9968bc2.tar.gz |
* debug.c, debug.h (scm_reverse_lookup): Added.
(scm_procedure_name): Use scm_reverse_lookup to lookup the name of
internal procedure definitions; Don't use scm_i_inner_name.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 8751ca0b0..13a599b74 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -185,6 +185,7 @@ extern int scm_ready_p SCM_P ((void)); extern void debug_print 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_reverse_lookup SCM_P ((SCM env, SCM data)); 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_source SCM_P ((SCM proc)); |