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

* snarf.h (SCM_PROC, SCM_PROC1): Remove very odd code in #ifdef

Browse source 
__cplusplus clause.  I seriously doubt this ever worked the way
the author seems to have intended.
This commit is contained in:
Jim Blandy 1998-10-06 13:01:46 +00:00
parent 89545eba77
commit d021129f24
1 changed files with 0 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/snarf.h
View file

@ -54,27 +54,10 @@
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ #define SCM_PROC1(RANAME, STR, TYPE, CFN) \
static char RANAME[]=STR static char RANAME[]=STR
#else #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) \ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN) %%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ #define SCM_PROC1(RANAME, STR, TYPE, CFN) \
%%% scm_make_subr(RANAME, TYPE, CFN) %%% scm_make_subr(RANAME, TYPE, CFN)
#endif /* __cplusplus */
#endif #endif
#ifndef SCM_MAGIC_SNARFER #ifndef SCM_MAGIC_SNARFER