tag: make function inputs constant

src/tag.c

@@ -15,22 +15,22 @@ lisp_t *tag_int(i64 i)
   return TAG((u64)i, INT);
 }
 
-lisp_t *tag_sym(char *str)
+lisp_t *tag_sym(const char *str)
 {
   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);
 }
 
-lisp_t *tag_cons(cons_t *cons)
+lisp_t *tag_cons(const cons_t *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);
   if (!lisp)