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

lisp_print: print verbose logs for lisp types on VERBOSE_LOGS=2

Browse Source
This commit is contained in:
Aryadev Chavali
2026-03-04 06:28:46 +00:00
committed by oreodave
parent fc602f1664
commit 4bc615ab29
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/lisp.c
View File

@@ -98,26 +98,26 @@ void lisp_print(FILE *fp, lisp_t *lisp)
fprintf(fp, "NIL");
break;
case TAG_INT:
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "INT[");
#endif
fprintf(fp, "%ld", as_int(lisp));
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#endif
break;
case TAG_SYM:
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "SYM[");
#endif
fprintf(fp, "%s", as_sym(lisp));
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#endif
break;
case TAG_CONS:
{
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "LIST[");
#else
fprintf(fp, "(");
@@ -145,7 +145,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
break;
}
}
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#else
fprintf(fp, ")");
@@ -154,7 +154,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
}
case TAG_VEC:
{
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "VEC[");
#else
fprintf(fp, "[");
@@ -171,7 +171,7 @@ void lisp_print(FILE *fp, lisp_t *lisp)
}
}
#if VERBOSE_LOGS
#if VERBOSE_LOGS == 2
fprintf(fp, "]");
#else
fprintf(fp, "]");

2
src/sys.c
View File

@@ -22,7 +22,7 @@ lisp_t *sys_alloc(sys_t *sys, tag_t type)
case TAG_CONS:
case TAG_VEC:
return alloc_make(&sys->memory, type);
// Shouldn't be registered
// Shouldn't be allocated
case TAG_NIL:
case TAG_INT:
case TAG_SYM: