* Eliminate hard-coded value of scm_tc7_smob.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index bad4103..9290e1b 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-04  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * tags.h (scm_tc_free_cell, scm_tc16_big, scm_tc16_real,
+       scm_tc16_complex):  Eliminate hard-coded value of scm_tc7_smob.
+
 2000-12-01  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * list.[ch] (scm_c_memq):  Added as a fast C level alternative for

diff --git a/libguile/tags.h b/libguile/tags.h
index a3f7ccb..d07f2aa 100644 (file)
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -395,16 +395,13 @@ typedef long scm_bits_t;
 /* scm_tc_free_cell is also the 0th smob type.  We place this
  * in free cells to tell the conservative marker not to trace it.
  */
-#define scm_tc_free_cell       0x007f
+#define scm_tc_free_cell       (scm_tc7_smob + 0 * 256L)
 
-/* Smob type 1 (note the dependency on the predicate SCM_NUMP)
+/* Smob type 1 to 3 (note the dependency on the predicate SCM_NUMP)
  */
-#define scm_tc16_big           0x017f
-
-/* Smob types 2 and 3:
- */
-#define scm_tc16_real           0x027f
-#define scm_tc16_complex        0x037f
+#define scm_tc16_big           (scm_tc7_smob + 1 * 256L)
+#define scm_tc16_real           (scm_tc7_smob + 2 * 256L)
+#define scm_tc16_complex        (scm_tc7_smob + 3 * 256L)
 
 \f
 /* {Immediate Values}