summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-17 08:46:51 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-08-17 08:46:51 +0000
commit55b0ed6971d6248c31ee5019283610c8c4bb5cb0 (patch)
tree7b09a57063cfdfd0bd396767bbeff80a7b73399d /libguile/gsubr.c
parent2f0d1375c12a7b393f7e83dad0c4e5c53e6fa64d (diff)
downloadguile-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.c8
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