[uim-commit] r1208 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-17 09:17:51 -0700 (Wed, 17 Aug 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	2005-08-17 15:48:46 UTC (rev 1207)
+++ branches/r5rs/sigscheme/sigschemetype.h	2005-08-17 16:17:51 UTC (rev 1208)
@@ -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))