From fd61ba9ee20ec6fa508cd770f92f03aefa88d2af Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 12 Jan 2000 01:29:42 +0000 Subject: [PATCH] * snarf.h (SCM_PROC1): Replaced SCM (*) (...) with SCM_FUNC_CAST_ARBITRARY_ARGS. --- libguile/snarf.h | 4 ++-- 1 file 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) \