hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

experimenting with the new reader

Browse Source
This commit is contained in:
hyung-hwan
2021-01-15 09:12:28 +00:00
parent 554667b227
commit b327791484
9 changed files with 3136 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/cnode.c
View File

@ -167,8 +167,9 @@ redo:
hcl_cnode_t* tmp;
tmp = c->u.list.head;
hcl_freemem (hcl, c);
if (tmp)
if (tmp) /* it's not set for an empty list */
{
c = tmp;
goto redo;
}
@ -182,7 +183,10 @@ redo:
tmp1 = c->u.cons.car;
tmp2 = c->u.cons.cdr;
HCL_ASSERT (hcl, tmp1 != HCL_NULL);
hcl_freemem (hcl, c);
hcl_freecnode (hcl, tmp1); /* TODO: remove recursion? */
if (tmp2)
@ -190,9 +194,12 @@ redo:
c = tmp2;
goto redo;
}
break;
}
default:
hcl_freemem (hcl, c);
break;
}
}