diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-17 08:46:51 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-08-17 08:46:51 +0000 |
commit | 55b0ed6971d6248c31ee5019283610c8c4bb5cb0 (patch) | |
tree | 7b09a57063cfdfd0bd396767bbeff80a7b73399d /libguile/gsubr.c | |
parent | 2f0d1375c12a7b393f7e83dad0c4e5c53e6fa64d (diff) | |
download | guile-55b0ed6971d6248c31ee5019283610c8c4bb5cb0.tar.gz |
* backtrace.c, debug.c, eval.c, eval.h, gsubr.c, 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/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index a1359de53..40fdb5b0e 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -55,7 +55,7 @@ /* #define GSUBR_TEST */ -SCM scm_i_name; +SCM scm_sym_name; SCM scm_f_gsubr_apply; SCM @@ -94,7 +94,7 @@ scm_make_gsubr(name, req, opt, rst, fcn) SCM_SETCDR (symcell, cclo); #ifdef DEBUG_EXTENSIONS if (SCM_REC_PROCNAMES_P) - scm_set_procedure_property_x (cclo, scm_i_name, SCM_CAR (symcell)); + scm_set_procedure_property_x (cclo, scm_sym_name, SCM_CAR (symcell)); #endif return cclo; } @@ -180,8 +180,8 @@ void scm_init_gsubr() { scm_f_gsubr_apply = scm_make_subr(s_gsubr_apply, scm_tc7_lsubr, scm_gsubr_apply); - scm_i_name = SCM_CAR (scm_sysintern ("name", SCM_UNDEFINED)); - scm_permanent_object (scm_i_name); + scm_sym_name = SCM_CAR (scm_sysintern ("name", SCM_UNDEFINED)); + scm_permanent_object (scm_sym_name); #ifdef GSUBR_TEST scm_make_gsubr("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */ #endif |