diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-11 14:48:23 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-11 14:48:23 +0000 |
commit | 85db4a2c8eead51392bb16ea383526ba1ddfd23f (patch) | |
tree | 85274049b74a2787ed5b22700cb40d063303468a /libguile/srcprop.c | |
parent | 24737ba02af8cb63982f50b7df45955b4b375298 (diff) | |
download | guile-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/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 18 |
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 |