diff options
| author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
|---|---|---|
| committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
| commit | c014a02eec7b99c54d8a156ce491ae8d1e341f97 (patch) | |
| tree | fa7a113564c23215b83e44a1498616a6bf16c853 /libguile/gsubr.c | |
| parent | f3f70257a3befb6495760923d167e52d5cdfddae (diff) | |
| download | guile-c014a02eec7b99c54d8a156ce491ae8d1e341f97.tar.gz | |
revert the ill-considered part of the 2001-05-24 changes
Diffstat (limited to 'libguile/gsubr.c')
| -rw-r--r-- | libguile/gsubr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 090b1e928..ebb09f3b1 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -214,8 +214,8 @@ scm_gsubr_apply (SCM args) SCM self = SCM_CAR (args); SCM (*fcn)() = SCM_SUBRF (SCM_GSUBR_PROC (self)); SCM v[SCM_GSUBR_MAX]; - scm_bits_t typ = SCM_INUM (SCM_GSUBR_TYPE (self)); - scm_bits_t i, n = SCM_GSUBR_REQ (typ) + SCM_GSUBR_OPT (typ) + SCM_GSUBR_REST (typ); + long typ = SCM_INUM (SCM_GSUBR_TYPE (self)); + long i, n = SCM_GSUBR_REQ (typ) + SCM_GSUBR_OPT (typ) + SCM_GSUBR_REST (typ); #if 0 if (n > SCM_GSUBR_MAX) scm_misc_error (FUNC_NAME, |