aboutsummaryrefslogtreecommitdiff
path: root/tag.c
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2025-08-20 22:43:23 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2025-08-20 22:43:23 +0100
commit13142dc7f38e6b148efadc97edffca8664b9cde7 (patch)
tree068eb442645caf65e2ac2ff0a4d5f44f158c5a88 /tag.c
parent6e2db6825d4ff4b57be3086f654a84cc9ff64bcf (diff)
downloadalisp-13142dc7f38e6b148efadc97edffca8664b9cde7.tar.gz
alisp-13142dc7f38e6b148efadc97edffca8664b9cde7.tar.bz2
alisp-13142dc7f38e6b148efadc97edffca8664b9cde7.zip
refactor lisp runtime to use vec_t* instead of ivec_t*
bit nicer to look at, should have about the same painful performance hit anyway.
Diffstat (limited to 'tag.c')
-rw-r--r--tag.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/tag.c b/tag.c
index f5338d6..874d532 100644
--- a/tag.c
+++ b/tag.c
@@ -27,9 +27,9 @@ lisp_t *tag_sym(sv_t *str)
return TAG((u64)str, SYM);
}
-lisp_t *tag_vec(lvec_t *lvec)
+lisp_t *tag_vec(vec_t *vec)
{
- return TAG((u64)lvec, VEC);
+ return TAG((u64)vec, VEC);
}
lisp_t *tag_cons(cons_t *cons)
@@ -69,12 +69,8 @@ cons_t *as_cons(lisp_t *obj)
return (cons_t *)UNTAG(obj, CONS);
}
-void *as_vec(lisp_t *obj)
+vec_t *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;
+ return (vec_t *)UNTAG(obj, VEC);
}