sjs/lake
1
0
Fork 0
mirror of https://github.com/samsonjs/lake.git synced 2026-04-27 14:57:43 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

handle an edge case in dlist_repr

Browse source
This commit is contained in:
Sami Samhuri 2011-04-23 20:01:03 -07:00
parent d7bb151ce8
commit 3661142383
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/dlist.c
View file

@ -31,13 +31,18 @@ char *dlist_repr(LakeDottedList *dlist)
GString *s = g_string_new("("); GString *s = g_string_new("(");
int i; int i;
char *s2; char *s2;
if (dlist->head) { if (dlist->head && LIST_N(dlist->head)) {
for (i = 0; i < LIST_N(dlist->head); ++i) { for (i = 0; i < LIST_N(dlist->head); ++i) {
s2 = lake_repr(LIST_VAL(dlist->head, i)); s2 = lake_repr(LIST_VAL(dlist->head, i));
g_string_append(s, s2); g_string_append(s, s2);
g_free(s2); g_free(s2);
if (i != LIST_N(dlist->head) - 1) g_string_append(s, " "); if (i != LIST_N(dlist->head) - 1) g_string_append(s, " ");
} }
}
else if (dlist->head) {
s2 = lake_repr(VAL(dlist->head));
g_string_append(s, s2);
g_free(s2);
} }
g_string_append(s, " . "); g_string_append(s, " . ");
s2 = lake_repr(dlist->tail); s2 = lake_repr(dlist->tail);