summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-12 01:29:42 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-12 01:29:42 +0000
commitfd61ba9ee20ec6fa508cd770f92f03aefa88d2af (patch)
tree0e586c116091feff9bf2c83acf400765f913aae5
parent5d2d2ffca7d7e160dc7e99cab690cf512fbcfb86 (diff)
downloadguile-fd61ba9ee20ec6fa508cd770f92f03aefa88d2af.tar.gz
* snarf.h (SCM_PROC1): Replaced SCM (*) (...) with
SCM_FUNC_CAST_ARBITRARY_ARGS.
-rw-r--r--libguile/snarf.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h
index cc8fa4d50..36057ae9e 100644
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -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) \