diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-09 13:08:06 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-09 13:10:57 +0100 |
commit | 9174596d5bfc456d06f4cf74a7a67e9b2b09aac3 (patch) | |
tree | fc12ee9f9fbcb4e55e94ba2afde8a0ef6d20eb50 | |
parent | a589525d4e1d0e4ce385a01820a7fa6fa9a5030e (diff) | |
download | guile-9174596d5bfc456d06f4cf74a7a67e9b2b09aac3.tar.gz |
re-add SCM_GSUBR_MAX
* libguile/gsubr.h (SCM_GSUBR_MAX): Restore this define, which specifies
the max number of args to a gsubr.
* libguile/smob.c: Remove local SCM_GSUBR_MAX define.
-rw-r--r-- | libguile/gsubr.h | 3 | ||||
-rw-r--r-- | libguile/smob.c | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h index be83a97b6..a4dc5602e 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -37,6 +37,9 @@ SCM_API SCM scm_subr_objcode_trampoline (unsigned int nreq, /* Subrs */ +/* Max number of args to the C procedure backing a gsubr */ +#define SCM_GSUBR_MAX 10 + #define SCM_PRIMITIVE_P(x) (SCM_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE (x)) #define SCM_PRIMITIVE_GENERIC_P(x) (SCM_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE_GENERIC (x)) diff --git a/libguile/smob.c b/libguile/smob.c index 037164bc2..442e6e484 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -18,7 +18,6 @@ #define SCM_GSUBR_MAKTYPE(req, opt, rst) ((req)|((opt)<<4)|((rst)<<8)) -#define SCM_GSUBR_MAX 33 #define SCM_GSUBR_REQ(x) ((long)(x)&0xf) #define SCM_GSUBR_OPT(x) (((long)(x)&0xf0)>>4) #define SCM_GSUBR_REST(x) ((long)(x)>>8) |