From 85db4a2c8eead51392bb16ea383526ba1ddfd23f Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 11 Dec 2000 14:48:23 +0000 Subject: * Initialize symbols using SCM_(GLOBAL_)?SYMBOL instead of scm_sysintern... * Use scm_str2symbol instead of scm_sysintern0. * Garbage collection initialization code now within gc.c only. --- libguile/debug.c | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 946306db1..d0600ea22 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -138,8 +138,10 @@ SCM_DEFINE (scm_with_traps, "with-traps", 1, 0, 0, #undef FUNC_NAME -static SCM scm_sym_source, scm_sym_dots; -static SCM scm_sym_procname; + +SCM_SYMBOL (scm_sym_procname, "procname"); +SCM_SYMBOL (scm_sym_dots, "..."); +SCM_SYMBOL (scm_sym_source, "source"); /* {Memoized Source} */ @@ -615,10 +617,6 @@ scm_init_debug () scm_tc16_debugobj = scm_make_smob_type ("debug-object", 0); scm_set_smob_print (scm_tc16_debugobj, debugobj_print); - scm_sym_procname = SCM_CAR (scm_sysintern ("procname", SCM_UNDEFINED)); - scm_sym_dots = SCM_CAR (scm_sysintern ("...", SCM_UNDEFINED)); - scm_sym_source = SCM_CAR (scm_sysintern ("source", SCM_UNDEFINED)); - #ifdef GUILE_DEBUG scm_sysintern ("SCM_IM_AND", SCM_IM_AND); scm_sysintern ("SCM_IM_BEGIN", SCM_IM_BEGIN); -- cgit v1.2.3