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/variable.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'libguile/variable.c') diff --git a/libguile/variable.c b/libguile/variable.c index 163fb8ed2..0b586c721 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -83,7 +83,7 @@ variable_equalp (SCM var1, SCM var2) } -static SCM anonymous_variable_sym; +SCM_SYMBOL (anonymous_variable_sym, "anonymous-variable"); static SCM @@ -229,7 +229,6 @@ scm_init_variable () scm_set_smob_print (scm_tc16_variable, variable_print); scm_set_smob_equalp (scm_tc16_variable, variable_equalp); - anonymous_variable_sym = SCM_CAR (scm_sysintern ("anonymous-variable", SCM_UNDEFINED)); #ifndef SCM_MAGIC_SNARFER #include "libguile/variable.x" #endif -- cgit v1.2.3