mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* snarf.h (SCM_PROC1): Replaced SCM (*) (...) with

Browse source 
SCM_FUNC_CAST_ARBITRARY_ARGS.
This commit is contained in:
Mikael Djurfeldt 2000-01-12 01:29:42 +00:00
parent 5d2d2ffca7
commit fd61ba9ee2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/snarf.h
View file

@ -124,7 +124,7 @@ scm_make_gsubr_with_generic (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARG
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \
SCM_HERE(static const char RANAME[]=STR) \
SCM_INIT(\
scm_make_subr(RANAME, TYPE, (SCM (*)(...))CFN) \
scm_make_subr (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \
)
@ -133,7 +133,7 @@ SCM_HERE(\
static const char RANAME[]=STR; \
static SCM GF = 0 \
)SCM_INIT(\
scm_make_subr_with_generic(RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
scm_make_subr_with_generic (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \
)
#define SCM_SYNTAX(RANAME, STR, TYPE, CFN) \