From d021129f24fcc3aa2cdf277d50a469693725cda0 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 6 Oct 1998 13:01:46 +0000 Subject: [PATCH] * snarf.h (SCM_PROC, SCM_PROC1): Remove very odd code in #ifdef __cplusplus clause. I seriously doubt this ever worked the way the author seems to have intended. --- libguile/snarf.h | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/libguile/snarf.h b/libguile/snarf.h index 391184213..bdf278d8f 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -54,27 +54,10 @@ #define SCM_PROC1(RANAME, STR, TYPE, CFN) \ static char RANAME[]=STR #else -#ifdef __cplusplus -#if REQ == 0 && OPT == 0 && VAR == 0 -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (void)) CFN) -#else -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (SCM, ...)) CFN) -#endif -#if TYPE == scm_tc7_subr_0 -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ -%%% scm_make_subr(RANAME, TYPE, (SCM (*)(void)) CFN) -#else -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ -%%% scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN) -#endif -#else /* __cplusplus */ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ %%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN) #define SCM_PROC1(RANAME, STR, TYPE, CFN) \ %%% scm_make_subr(RANAME, TYPE, CFN) -#endif /* __cplusplus */ #endif #ifndef SCM_MAGIC_SNARFER