fix cons for 2 atoms

This commit is contained in:
Sami Samhuri 2011-04-21 21:23:50 -07:00
parent 7d7b9a29a2
commit 1bcf043f86

View file

@ -52,8 +52,8 @@ LakeList *list_cons(LakeVal *car, LakeVal *cdr)
}
else {
list = list_make_with_capacity(2);
list->vals[0] = car;
list->vals[1] = cdr;
list_append(list, car);
list_append(list, cdr);
}
return list;
}