Author: kzk Date: Wed Aug 17 09:17:51 2005 New Revision: 1208 Modified: branches/r5rs/sigscheme/sigschemetype.h
Log: * sigscheme/sigschemetype.h - (SCM_SETCLOSURE_EXP, SCM_SETCLOSURE_ENV): fixed ugly typo.. Modified: branches/r5rs/sigscheme/sigschemetype.h ============================================================================== --- branches/r5rs/sigscheme/sigschemetype.h (original) +++ branches/r5rs/sigscheme/sigschemetype.h Wed Aug 17 09:17:51 2005 @@ -293,8 +293,8 @@ #define SCM_CLOSURE_EXP(a) (SCM_CLOSURE(a)->obj.closure.exp) #define SCM_CLOSURE_ENV(a) (SCM_CLOSURE(a)->obj.closure.env) #define SCM_SETCLOSURE(a) (SCM_SETTYPE((a), ScmClosure)) -#define SCM_SETCLOSURE_EXP(a, formals) (SCM_CLOSURE_EXP(a) = exp) -#define SCM_SETCLOSURE_ENV(a, body) (SCM_CLOSURE_ENV(a) = env) +#define SCM_SETCLOSURE_EXP(a, exp) (SCM_CLOSURE_EXP(a) = exp) +#define SCM_SETCLOSURE_ENV(a, env) (SCM_CLOSURE_ENV(a) = env) #define SCM_VECTORP(a) (SCM_GETTYPE(a) == ScmVector) #define SCM_VECTOR(a) (sigassert(SCM_VECTORP(a)), (a))
