summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c18
1 files changed, 6 insertions, 12 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 7df11f8f2..0fa027283 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -76,11 +76,11 @@
*
*/
-SCM scm_sym_filename;
-SCM scm_sym_copy;
-SCM scm_sym_line;
-SCM scm_sym_column;
-SCM scm_sym_breakpoint;
+SCM_GLOBAL_SYMBOL (scm_sym_filename, "filename");
+SCM_GLOBAL_SYMBOL (scm_sym_copy, "copy");
+SCM_GLOBAL_SYMBOL (scm_sym_line, "line");
+SCM_GLOBAL_SYMBOL (scm_sym_column, "column");
+SCM_GLOBAL_SYMBOL (scm_sym_breakpoint, "breakpoint");
scm_bits_t scm_tc16_srcprops;
static scm_srcprops_chunk *srcprops_chunklist = 0;
@@ -329,14 +329,8 @@ scm_init_srcprop ()
scm_set_smob_print (scm_tc16_srcprops, srcprops_print);
scm_source_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (2047));
-
- scm_sym_filename = SCM_CAR (scm_sysintern ("filename", SCM_UNDEFINED));
- scm_sym_copy = SCM_CAR (scm_sysintern ("copy", SCM_UNDEFINED));
- scm_sym_line = SCM_CAR (scm_sysintern ("line", SCM_UNDEFINED));
- scm_sym_column = SCM_CAR (scm_sysintern ("column", SCM_UNDEFINED));
- scm_sym_breakpoint = SCM_CAR (scm_sysintern ("breakpoint", SCM_UNDEFINED));
-
scm_sysintern ("source-whash", scm_source_whash);
+
#ifndef SCM_MAGIC_SNARFER
#include "libguile/srcprop.x"
#endif