a

runtime/gyehoek.h

@@ -15,6 +15,10 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM;
 #define SCM_NIMP(x) 		(!SCM_IMP (x))
 #define SCM_HEAP_OBJECT_P(x)    (SCM_NIMP (x))
 
+#define SCM_FALSE 0b00100
+#define SCM_TRUE  0b01100
+#define SCM_EOL   0b10100
+
 
 
 SCM scm_write (SCM);