summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-01-09 13:08:06 +0100
committerAndy Wingo <wingo@pobox.com>2010-01-09 13:10:57 +0100
commit9174596d5bfc456d06f4cf74a7a67e9b2b09aac3 (patch)
treefc12ee9f9fbcb4e55e94ba2afde8a0ef6d20eb50
parenta589525d4e1d0e4ce385a01820a7fa6fa9a5030e (diff)
downloadguile-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.h3
-rw-r--r--libguile/smob.c1
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)