From 7e3a72763caafd0d613acd53cc2b9ab1a9968bc2 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 29 Jul 1999 21:11:51 +0000 Subject: * 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. --- libguile/debug.h | 1 + 1 file changed, 1 insertion(+) (limited to 'libguile/debug.h') 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)); -- cgit v1.2.3