diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-08-20 22:43:23 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-08-20 22:43:23 +0100 |
commit | 13142dc7f38e6b148efadc97edffca8664b9cde7 (patch) | |
tree | 068eb442645caf65e2ac2ff0a4d5f44f158c5a88 /tag.c | |
parent | 6e2db6825d4ff4b57be3086f654a84cc9ff64bcf (diff) | |
download | alisp-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.c | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -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); } |