oreodave/alisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tag: make function inputs constant

Browse Source
This commit is contained in:
Aryadev Chavali
2026-02-11 07:49:08 +00:00
committed by oreodave
parent 39e5b76f8b
commit 47f33cb969
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
include/alisp/tag.h
View File

@@ -46,11 +46,11 @@ enum Mask
#define INT_MAX ((1L << 62) - 1) #define INT_MAX ((1L << 62) - 1)
#define INT_MIN (-(1L << 62)) #define INT_MIN (-(1L << 62))
tag_t get_tag(lisp_t *); tag_t get_tag(const lisp_t *);
lisp_t *tag_int(i64); lisp_t *tag_int(const i64);
lisp_t *tag_sym(char *); lisp_t *tag_sym(const char *);
lisp_t *tag_cons(cons_t *); lisp_t *tag_cons(const cons_t *);
lisp_t *tag_vec(vec_t *); lisp_t *tag_vec(const vec_t *);
#endif #endif

8
src/tag.c
View File

@@ -15,22 +15,22 @@ lisp_t *tag_int(i64 i)
return TAG((u64)i, INT); return TAG((u64)i, INT);
} }
lisp_t *tag_sym(char *str) lisp_t *tag_sym(const char *str)
{ {
return TAG((u64)str, SYM); return TAG((u64)str, SYM);
} }
lisp_t *tag_vec(vec_t *vec) lisp_t *tag_vec(const vec_t *vec)
{ {
return TAG((u64)vec, VEC); return TAG((u64)vec, VEC);
} }
lisp_t *tag_cons(cons_t *cons) lisp_t *tag_cons(const cons_t *cons)
{ {
return TAG((u64)cons, CONS); return TAG((u64)cons, CONS);
} }
tag_t get_tag(lisp_t *lisp) tag_t get_tag(const lisp_t *lisp)
{ {
static_assert(NUM_TAGS == 5); static_assert(NUM_TAGS == 5);
if (!lisp) if (!lisp)