begin work on strings
This commit is contained in:
parent
83fce46449
commit
91714d1025
7 changed files with 32 additions and 1 deletions
|
|
@ -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 ");
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue