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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-16 23:52:23 -0700 (Sun, 16 Oct 2005)
New Revision: 1849

Modified:
   branches/r5rs/sigscheme/sigschemetype-compact.h
Log:
* sigscheme/sigschemetype-compact.h
  - Make an expression of a comment ordinary
  - (SCM_VALUE_MASK): Sort by bit position


Modified: branches/r5rs/sigscheme/sigschemetype-compact.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype-compact.h	2005-10-17 05:37:12 UTC (rev 1848)
+++ branches/r5rs/sigscheme/sigschemetype-compact.h	2005-10-17 06:52:23 UTC (rev 1849)
@@ -118,7 +118,7 @@
 /*=======================================
    Masks and Offsets
 =======================================*/
-#define SCM_VALUE_MASK      (~0 ^ (SCM_GCBIT_MASK | SCM_TAG_MASK))
+#define SCM_VALUE_MASK      (~0 ^ (SCM_TAG_MASK | SCM_GCBIT_MASK))
 
 #define SCM_GCBIT_MASK      0x1
 #define SCM_GCBIT_UNMARKED  0x0
@@ -128,7 +128,7 @@
 #define SCM_TAG_CONS        0x0
 #define SCM_TAG_CLOSURE     0x2
 #define SCM_TAG_OTHERS      0x4
-#define SCM_TAG_IMM         0x6 /* 'IMM' represents 'Immediate' */
+#define SCM_TAG_IMM         0x6 /* 'IMM' stands for 'Immediate' */
 
 #define SCM_TAG_OTHERS_MASK_1                    0x7
 #define SCM_TAG_OTHERS_MASK_2                    0x3f