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 /libguile/gsubr.h | |
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.
Diffstat (limited to 'libguile/gsubr.h')
-rw-r--r-- | libguile/gsubr.h | 3 |
1 files changed, 3 insertions, 0 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)) |