mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

rename SCM_SNAME to SCM_SUBR_NAME

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-06-19 11:20:34 +02:00
parent 96b73e84bb
commit ce471ab8b0
8 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/procs.h
View file

@ -32,7 +32,7 @@
*/
#define SCM_SUBR_META_INFO(x) ((SCM *) SCM_CELL_WORD_3 (x))
#define SCM_SNAME(x) (SCM_SUBR_META_INFO (x) [0])
#define SCM_SUBR_NAME(x) (SCM_SUBR_META_INFO (x) [0])
#define SCM_SUBRF(x) ((SCM (*)()) SCM_CELL_WORD_1 (x))
#define SCM_SET_SUBRF(x, v) (SCM_SET_CELL_WORD_1 ((x), (v)))
#define SCM_DSUBRF(x) ((double (*)()) SCM_CELL_WORD_1 (x))