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.

diff --git a/libguile/gsubr.h b/libguile/gsubr.h
index be83a97..a4dc560 100644 (file)
--- 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 037164b..442e6e4 100644 (file)
--- 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)