Implement EVAL for LISTs

[muddle-interpreter.git] / src / object.h

diff --git a/src/object.h b/src/object.h
index cb1ade1f3c13e8ab57b4d221c4acc37cb91e599e..80c886e3051108c8c47fe886eee00c00dcc5b966 100644 (file)
--- a/src/object.h
+++ b/src/object.h
@@ -53,6 +53,7 @@ enum
 
   EVALTYPE_LIST = TYPEPRIM_LIST,
   EVALTYPE_FORM,
+  EVALTYPE_FALSE,
 
   EVALTYPE_VECTOR = TYPEPRIM_VECTOR,
 
@@ -262,8 +263,7 @@ as_vector (object * o)
 static inline pool_object *
 as_pool (object * p)
 {
-  if (TYPEPRIM (p->type) & TYPEPRIM_NOPOOL_MASK)
-    return 0;
+  assert (!(TYPEPRIM (p->type) & TYPEPRIM_NOPOOL_MASK));
   return (pool_object *) p;
 }