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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-04 22:40:33 -0700 (Sun, 04 Sep 2005)
New Revision: 1422

Modified:
   branches/r5rs/sigscheme/datas.c
Log:
* sigscheme/datas.c
  - Add a suggestion about renaming of mark-related macros, as a comment


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-09-05 05:38:56 UTC (rev 1421)
+++ branches/r5rs/sigscheme/datas.c	2005-09-05 05:40:33 UTC (rev 1422)
@@ -116,11 +116,21 @@
 
 #define SCM_UNMARKER        0
 #define SCM_INITIAL_MARKER  (SCM_UNMARKER + 1)
+#if 1
 #define SCM_IS_MARKED(a)    (SCM_MARK(a) == scm_cur_marker)
 #define SCM_IS_UNMARKED(a)  (!SCM_IS_MARKED)
 #define SCM_DO_MARK(a)      (SCM_MARK(a) = scm_cur_marker)
 #define SCM_DO_UNMARK(a)    (SCM_MARK(a) = SCM_UNMARKER)
 #define SCM_MARK_CORRUPT(a) ((unsigned)SCM_MARK(a) > (unsigned)scm_cur_marker)
+#else
+/* YamaKen's suggestion: remove if you don't favor them */
+#define SCM_MARK_VALUE(a)     ((a)->gcmark)
+#define SCM_MARKED(a)         (SCM_MARK_VALUE(a) == scm_cur_marker)
+#define SCM_UNMARKED(a)       (!SCM_MARKED(a))
+#define SCM_MARK(a)           (SCM_MARK_VALUE(a) = scm_cur_marker)
+#define SCM_UNMARK(a)         (SCM_MARK_VALUE(a) = SCM_UNMARKER)
+#define SCM_MARK_CORRUPTED(a) ((unsigned)SCM_MARK_VALUE(a) > (unsigned)scm_cur_marker)
+#endif
 
 /*=======================================
   Variable Declarations