From bbab09f6f1dd06a2b9b9e06ae3a770a689271bdf Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 11 Mar 1999 11:44:41 +0000 Subject: [PATCH] * debug.c (scm_init_debug): Added scheme level constant SCM_IM_DISPATCH. * eval.c, debug.c, tags.h (SCM_IM_SET_X): Renamed from SCM_IM_SET. --- libguile/debug.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/libguile/debug.c b/libguile/debug.c index e6e73c611..12b3a8a16 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -255,6 +255,7 @@ scm_make_memoized (exp, env) * - constant: SCM_IM_DEFINE * - constant: SCM_IM_APPLY * - constant: SCM_IM_CONT + * - constant: SCM_IM_DISPATCH */ #include "variable.h" @@ -662,10 +663,11 @@ scm_init_debug () scm_sysintern ("SCM_IM_LETREC", SCM_IM_LETREC); scm_sysintern ("SCM_IM_OR", SCM_IM_OR); scm_sysintern ("SCM_IM_QUOTE", SCM_IM_QUOTE); - scm_sysintern ("SCM_IM_SET", SCM_IM_SET); + scm_sysintern ("SCM_IM_SET_X", SCM_IM_SET_X); scm_sysintern ("SCM_IM_DEFINE", SCM_IM_DEFINE); scm_sysintern ("SCM_IM_APPLY", SCM_IM_APPLY); scm_sysintern ("SCM_IM_CONT", SCM_IM_CONT); + scm_sysintern ("SCM_IM_DISPATCH", SCM_IM_DISPATCH); #endif scm_add_feature ("debug-extensions");