1 files changed, 22 insertions, 0 deletions
diff --git a/tag.c b/tag.c
index 7688d63..dbc47ba 100644
--- a/tag.c
+++ b/tag.c
@@ -13,6 +13,7 @@
  */
 
 #include <assert.h>
+#include <stdlib.h>
 
 #include "./base.h"
 
@@ -26,6 +27,11 @@ lisp_t *tag_sym(char *str)
   return TAG((u64)str, SYM);
 }
 
+lisp_t *tag_cons(cons_t *cons)
+{
+  return TAG((u64)cons, CONS);
+}
+
 i64 as_int(lisp_t *obj)
 {
   assert(IS_TAG(obj, INT));
@@ -40,3 +46,19 @@ char *as_sym(lisp_t *obj)
   assert(IS_TAG(obj, SYM));
   return (char *)UNTAG(obj, SYM);
 }
+
+cons_t *as_cons(lisp_t *obj)
+{
+  assert(IS_TAG(obj, CONS));
+  return (cons_t *)UNTAG(obj, CONS);
+}
+
+void *as_vec(lisp_t *obj)
+{
+  assert(IS_TAG(obj, VEC));
+  lvec_t *vec = (lvec_t *)UNTAG(obj, VEC);
+  if (vec)
+    return vec->data;
+  else
+    return NULL;
+}