begin work on strings

This commit is contained in:
Lobo 2026-01-12 09:01:33 -03:00
parent 83fce46449
commit 91714d1025
7 changed files with 32 additions and 1 deletions

View file

@ -55,6 +55,11 @@ void print(O obj) {
case TYPE_PAIR:
print_pair(obj);
break;
case TYPE_STR: {
Ss *s = (Ss *)(h + 1);
printf("%.*s", (int)s->len, s->data);
break;
}
case TYPE_CLOS: {
Cl *cl = (Cl *)(h + 1);
printf("<#fn ");