diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-17 08:47:47 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-17 08:47:47 +0000 |
commit | 92e5aa0e925a48136e744059f4acdc26b2641681 (patch) | |
tree | e8a236fe6b46bff7dfdfdcecb0e5ef77740244a6 /libguile/srcprop.c | |
parent | 55b0ed6971d6248c31ee5019283610c8c4bb5cb0 (diff) | |
download | guile-92e5aa0e925a48136e744059f4acdc26b2641681.tar.gz |
* backtrace.c, debug.c, eval.c, eval.h, gsubr.c, procprop.h,
read.c, srcprop.c, srcprop.h (scm_i_filename, scm_i_line,
scm_i_column, scm_i_copy, scm_i_name, scm_i_lambda, scm_i_source,
scm_i_more, scm_i_procname, scm_i_dot, scm_i_arrow, scm_i_else,
scm_i_unquote, scm_i_uq_splicing, scm_i_apply, scm_i_enter_frame,
scm_i_apply_frame, scm_i_exit_frame, scm_i_trace, scm_i_quote,
scm_i_begin, scm_i_if, scm_i_and, scm_i_or, scm_i_case,
scm_i_cond, scm_i_letstar, scm_i_do, scm_i_quasiquote,
scm_i_define, scm_i_letrec, scm_i_let, scm_i_atapply,
scm_i_atcall_cc, scm_i_breakpoint): Renamed: Consequently use
scm_sym_ as prefix for symbols.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 94ff30674..40d854b83 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -70,11 +70,11 @@ * */ -SCM scm_i_filename; -SCM scm_i_copy; -SCM scm_i_line; -SCM scm_i_column; -SCM scm_i_breakpoint; +SCM scm_sym_filename; +SCM scm_sym_copy; +SCM scm_sym_line; +SCM scm_sym_column; +SCM scm_sym_breakpoint; long scm_tc16_srcprops; static scm_srcprops_chunk *srcprops_chunklist = 0; @@ -166,12 +166,12 @@ scm_srcprops_to_plist (obj) { SCM plist = SRCPROPPLIST (obj); if (!SCM_UNBNDP (SRCPROPCOPY (obj))) - plist = scm_acons (scm_i_copy, SRCPROPCOPY (obj), plist); + plist = scm_acons (scm_sym_copy, SRCPROPCOPY (obj), plist); if (!SCM_UNBNDP (SRCPROPFNAME (obj))) - plist = scm_acons (scm_i_filename, SRCPROPFNAME (obj), plist); - plist = scm_acons (scm_i_column, SCM_MAKINUM (SRCPROPCOL (obj)), plist); - plist = scm_acons (scm_i_line, SCM_MAKINUM (SRCPROPLINE (obj)), plist); - plist = scm_acons (scm_i_breakpoint, SRCPROPBRK (obj), plist); + plist = scm_acons (scm_sym_filename, SRCPROPFNAME (obj), plist); + plist = scm_acons (scm_sym_column, SCM_MAKINUM (SRCPROPCOL (obj)), plist); + plist = scm_acons (scm_sym_line, SCM_MAKINUM (SRCPROPLINE (obj)), plist); + plist = scm_acons (scm_sym_breakpoint, SRCPROPBRK (obj), plist); return plist; } @@ -235,11 +235,11 @@ scm_source_property (obj, key) p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); if (SCM_IMP (p) || !SRCPROPSP (p)) goto plist; - if (scm_i_breakpoint == key) p = SRCPROPBRK (p); - else if (scm_i_line == key) p = SCM_MAKINUM (SRCPROPLINE (p)); - else if (scm_i_column == key) p = SCM_MAKINUM (SRCPROPCOL (p)); - else if (scm_i_filename == key) p = SRCPROPFNAME (p); - else if (scm_i_copy == key) p = SRCPROPCOPY (p); + if (scm_sym_breakpoint == key) p = SRCPROPBRK (p); + else if (scm_sym_line == key) p = SCM_MAKINUM (SRCPROPLINE (p)); + else if (scm_sym_column == key) p = SCM_MAKINUM (SRCPROPCOL (p)); + else if (scm_sym_filename == key) p = SRCPROPFNAME (p); + else if (scm_sym_copy == key) p = SRCPROPCOPY (p); else { p = SRCPROPPLIST (p); @@ -275,7 +275,7 @@ scm_set_source_property_x (obj, key, datum) h = scm_whash_create_handle (scm_source_whash, obj); p = SCM_EOL; } - if (scm_i_breakpoint == key) + if (scm_sym_breakpoint == key) { if (SCM_FALSEP (datum)) CLEARSRCPROPBRK (SCM_NIMP (p) && SRCPROPSP (p) @@ -296,7 +296,7 @@ scm_set_source_property_x (obj, key, datum) SCM_UNDEFINED, p))); } - else if (scm_i_line == key) + else if (scm_sym_line == key) { SCM_ASSERT (SCM_INUMP (datum), datum, SCM_ARG3, s_set_source_property_x); @@ -307,7 +307,7 @@ scm_set_source_property_x (obj, key, datum) scm_make_srcprops (SCM_INUM (datum), 0, SCM_UNDEFINED, SCM_UNDEFINED, p)); } - else if (scm_i_column == key) + else if (scm_sym_column == key) { SCM_ASSERT (SCM_INUMP (datum), datum, SCM_ARG3, s_set_source_property_x); @@ -318,14 +318,14 @@ scm_set_source_property_x (obj, key, datum) scm_make_srcprops (0, SCM_INUM (datum), SCM_UNDEFINED, SCM_UNDEFINED, p)); } - else if (scm_i_filename == key) + else if (scm_sym_filename == key) { if (SCM_NIMP (p) && SRCPROPSP (p)) SRCPROPFNAME (p) = datum; else SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, datum, SCM_UNDEFINED, p)); } - else if (scm_i_filename == key) + else if (scm_sym_filename == key) { if (SCM_NIMP (p) && SRCPROPSP (p)) SRCPROPCOPY (p) = datum; @@ -345,11 +345,11 @@ scm_init_srcprop () marksrcprops, freesrcprops, prinsrcprops, NULL); scm_source_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (2047)); - scm_i_filename = SCM_CAR (scm_sysintern ("filename", SCM_UNDEFINED)); - scm_i_copy = SCM_CAR (scm_sysintern ("copy", SCM_UNDEFINED)); - scm_i_line = SCM_CAR (scm_sysintern ("line", SCM_UNDEFINED)); - scm_i_column = SCM_CAR (scm_sysintern ("column", SCM_UNDEFINED)); - scm_i_breakpoint = SCM_CAR (scm_sysintern ("breakpoint", SCM_UNDEFINED)); + 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); #include "srcprop.x" |