summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-11 14:48:23 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-11 14:48:23 +0000
commit85db4a2c8eead51392bb16ea383526ba1ddfd23f (patch)
tree85274049b74a2787ed5b22700cb40d063303468a /libguile/debug.c
parent24737ba02af8cb63982f50b7df45955b4b375298 (diff)
downloadguile-85db4a2c8eead51392bb16ea383526ba1ddfd23f.tar.gz
* 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.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c10
1 files changed, 4 insertions, 6 deletions
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);