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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-18 18:01:00 -0800 (Fri, 18 Nov 2005)
New Revision: 2158

Modified:
   branches/r5rs/sigscheme/sigschemetype-compact.h
   branches/r5rs/sigscheme/sigschemetype.h
Log:
* sigscheme/sigschemetype.h
  - (SCM_REF): Fix operator association precedence
    problem. Consider some cases such as SCM_REF(var =
    obj). Read "Macro definition" section of sigscheme/doc/style
    and avoid such bug-attracting coding
* sigscheme/sigschemetype-compact.h
  - (SCM_REF): Ditto


Modified: branches/r5rs/sigscheme/sigschemetype-compact.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype-compact.h	2005-11-19 01:19:23 UTC (rev 2157)
+++ branches/r5rs/sigscheme/sigschemetype-compact.h	2005-11-19 02:01:00 UTC (rev 2158)
@@ -633,7 +633,7 @@
 ============================================================================*/
 #define SCM_REF_NULL      NULL
 
-#define SCM_REF(obj)      (&obj)
+#define SCM_REF(obj)      (&(obj))
 #define SCM_REF_CAR(cons) (SCM_REF(SCM_GET_DIRECT_CAR(cons)))
 #define SCM_REF_CDR(cons) (SCM_REF(SCM_GET_DIRECT_CDR(cons)))
 #define SCM_DEREF(ref)    (*(ref))

Modified: branches/r5rs/sigscheme/sigschemetype.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype.h	2005-11-19 01:19:23 UTC (rev 2157)
+++ branches/r5rs/sigscheme/sigschemetype.h	2005-11-19 02:01:00 UTC (rev 2158)
@@ -398,7 +398,7 @@
 ============================================================================*/
 #define SCM_REF_NULL      NULL
 
-#define SCM_REF(obj)      (&obj)
+#define SCM_REF(obj)      (&(obj))
 #define SCM_REF_CAR(cons) (SCM_REF(SCM_CAR(cons)))
 #define SCM_REF_CDR(cons) (SCM_REF(SCM_CDR(cons)))
 #define SCM_DEREF(ref)    (*(ref))