From df558da7e1979a59b5207c323962aa59b61258e4 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Wed, 20 Aug 2025 21:50:58 +0100 Subject: Use sv_t instead of raw char* We're storing them as sv_t's anyway, we're fucked with regards to indirection. Thus, let's be nice to ourselves, and deal with the structures. We get the size of the structure for free anyway! --- tag.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tag.c') diff --git a/tag.c b/tag.c index 9265eb4..f5338d6 100644 --- a/tag.c +++ b/tag.c @@ -22,7 +22,7 @@ lisp_t *tag_int(i64 i) return TAG((u64)i, INT); } -lisp_t *tag_sym(char *str) +lisp_t *tag_sym(sv_t *str) { return TAG((u64)str, SYM); } @@ -57,10 +57,10 @@ i64 as_int(lisp_t *obj) ; } -char *as_sym(lisp_t *obj) +sv_t *as_sym(lisp_t *obj) { assert(IS_TAG(obj, SYM)); - return (char *)UNTAG(obj, SYM); + return (sv_t *)UNTAG(obj, SYM); } cons_t *as_cons(lisp_t *obj) -- cgit v1.2.3-13-gbd6f