[svn commit] r360 - trunk/gc

[jimb at red-bean.com]

Author: jimb
Date: Fri Sep  3 00:51:42 2004
New Revision: 360

Modified:
   trunk/gc/heap-inline.h
   trunk/gc/heap.h
Log:
(mn__unique_non_value): New.


Modified: trunk/gc/heap-inline.h
==============================================================================
--- trunk/gc/heap-inline.h	(original)
+++ trunk/gc/heap-inline.h	Fri Sep  3 00:51:42 2004
@@ -295,6 +295,7 @@
     unique_true,                /* #t */
     unique_false,               /* #f */
     unique_eof,                 /* end-of-file object */
+    unique_non_value,		/* not a valid Scheme value */
     unique_forwarded,           /* forwarding pointer in from-space */
   };
 
@@ -336,6 +337,13 @@
 }
 
 
+MN__INLINE tagged_t
+mn__unique_non_value (void)
+{
+  return mn__tag_unique (unique_non_value);
+}
+
+
 extern tagged_t mn__unique_forwarded (void);
 
 MN__INLINE tagged_t

Modified: trunk/gc/heap.h
==============================================================================
--- trunk/gc/heap.h	(original)
+++ trunk/gc/heap.h	Fri Sep  3 00:51:42 2004
@@ -92,6 +92,7 @@
 tagged_t mn__unique_true (void);       /* #f */
 tagged_t mn__unique_false (void);      /* #t */
 tagged_t mn__unique_eof (void);	       /* the end-of-file value */
+tagged_t mn__unique_non_value (void);  /* not a valid Scheme value */
 
 /* There are no type check or untag operations for unique values;
    since the only meaningful operation on them is comparison for