diff options
author | Andy Wingo <wingo@pobox.com> | 2009-06-19 11:20:34 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-06-19 11:20:34 +0200 |
commit | ce471ab8b083a345af0f49e08f51f22dbfe58efe (patch) | |
tree | 5f09dabf6205ed8f92a369c2e3715b07d8c7298b /libguile/procs.c | |
parent | 96b73e84bbb6d88c73a99bf46450642d79612be0 (diff) | |
download | guile-ce471ab8b083a345af0f49e08f51f22dbfe58efe.tar.gz |
rename SCM_SNAME to SCM_SUBR_NAME
* libguile/procs.h: Rename SCM_SNAME to SCM_SUBR_NAME.
* libguile/debug.c:
* libguile/eval.c:
* libguile/eval.i.c:
* libguile/goops.c:
* libguile/gsubr.c:
* libguile/print.c:
* libguile/procs.c: Update callers.
Diffstat (limited to 'libguile/procs.c')
-rw-r--r-- | libguile/procs.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index 3eb9c247a..93e35ab6c 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -66,7 +66,7 @@ SCM scm_c_define_subr (const char *name, long type, SCM (*fcn) ()) { SCM subr = scm_c_make_subr (name, type, fcn); - scm_define (SCM_SNAME (subr), subr); + scm_define (SCM_SUBR_NAME (subr), subr); return subr; } @@ -93,7 +93,7 @@ scm_c_define_subr_with_generic (const char *name, long type, SCM (*fcn) (), SCM *gf) { SCM subr = scm_c_make_subr_with_generic (name, type, fcn, gf); - scm_define (SCM_SNAME (subr), subr); + scm_define (SCM_SUBR_NAME (subr), subr); return subr; } @@ -237,7 +237,7 @@ SCM_DEFINE (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0, lookup */ switch (SCM_TYP7 (procedure)) { case scm_tcs_subrs: - name = SCM_SNAME (procedure); + name = SCM_SUBR_NAME (procedure); break; default: name = scm_procedure_property (procedure, scm_sym_name); |