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 for 2 atoms

Browse source
This commit is contained in:
Sami Samhuri 2011-04-21 21:23:50 -07:00
parent 7d7b9a29a2
commit 1bcf043f86
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/list.c
View file

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