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

* debug.c (scm_init_debug): Added scheme level constant

Browse source 
SCM_IM_DISPATCH.
* eval.c, debug.c, tags.h (SCM_IM_SET_X): Renamed from SCM_IM_SET.
This commit is contained in:
Mikael Djurfeldt 1999-03-11 11:44:41 +00:00
parent 76b7d6a167
commit bbab09f6f1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/debug.c
View file

@ -255,6 +255,7 @@ scm_make_memoized (exp, env)
* - constant: SCM_IM_DEFINE * - constant: SCM_IM_DEFINE
* - constant: SCM_IM_APPLY * - constant: SCM_IM_APPLY
* - constant: SCM_IM_CONT * - constant: SCM_IM_CONT
* - constant: SCM_IM_DISPATCH
*/ */
#include "variable.h" #include "variable.h"
@ -662,10 +663,11 @@ scm_init_debug ()
scm_sysintern ("SCM_IM_LETREC", SCM_IM_LETREC); scm_sysintern ("SCM_IM_LETREC", SCM_IM_LETREC);
scm_sysintern ("SCM_IM_OR", SCM_IM_OR); scm_sysintern ("SCM_IM_OR", SCM_IM_OR);
scm_sysintern ("SCM_IM_QUOTE", SCM_IM_QUOTE); 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_DEFINE", SCM_IM_DEFINE);
scm_sysintern ("SCM_IM_APPLY", SCM_IM_APPLY); scm_sysintern ("SCM_IM_APPLY", SCM_IM_APPLY);
scm_sysintern ("SCM_IM_CONT", SCM_IM_CONT); scm_sysintern ("SCM_IM_CONT", SCM_IM_CONT);
scm_sysintern ("SCM_IM_DISPATCH", SCM_IM_DISPATCH);
#endif #endif
scm_add_feature ("debug-extensions"); scm_add_feature ("debug-extensions");