lobo/wl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sdkhjfdsv

Browse source
This commit is contained in:
Lobo 2026-01-11 13:25:58 -03:00
parent 1aec6085d9
commit 537aa6e404
16 changed files with 683 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/print.c
View file

@ -34,7 +34,7 @@ void print_pair(O obj) {
void print(O obj) {
if (obj == NIL) {
printf("()");
printf("NIL");
} else if (IMM(obj)) {
printf("%" PRIdPTR, ORD(obj));
} else {
@ -55,6 +55,13 @@ void print(O obj) {
case TYPE_PAIR:
print_pair(obj);
break;
case TYPE_CLOS: {
Cl *cl = (Cl *)(h + 1);
printf("<#fn ");
print(cl->args);
printf(">");
break;
}
default:
printf("<#obj type=%" PRId32 " @ %p>", h->type, (void *)h);
break;