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

fix cons

Browse source
This commit is contained in:
Sami Samhuri 2011-04-21 14:38:00 -07:00
parent 6a8a737f57
commit 34ee57d759
1 changed files with 28 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
src/list.c
View file

@ -45,9 +45,16 @@ LakeList *list_make(void)
LakeList *list_cons(LakeVal *car, LakeVal *cdr) LakeList *list_cons(LakeVal *car, LakeVal *cdr)
{ {
LakeList *list = list_make_with_capacity(2); LakeList *list;
list->vals[0] = car; if (IS(TYPE_LIST, cdr)) {
list->vals[1] = cdr; list = LIST(cdr);
list_unshift(list, car);
}
else {
list = list_make_with_capacity(2);
list->vals[0] = car;
list->vals[1] = cdr;
}
return list; return list;
} }
@ -129,6 +136,24 @@ LakeVal *list_shift(LakeList *list)
return head; return head;
} }
LakeVal *list_unshift(LakeList *list, LakeVal *val)
{
if (list->n == 0) {
list_append(list, val);
}
else {
if (list->n >= list->cap) {
list_grow(list);
}
size_t i = list->n++;
while (i--) {
list->vals[i] = list->vals[i - 1];
}
list->vals[0] = val;
}
return NULL;
}
LakeVal *list_pop(LakeList *list) LakeVal *list_pop(LakeList *list)
{ {
LakeVal *tail = NULL; LakeVal *tail = NULL;