mirror of
https://github.com/samsonjs/lake.git
synced 2026-03-25 08:55:49 +00:00
fix cons for 2 atoms
This commit is contained in:
parent
7d7b9a29a2
commit
1bcf043f86
1 changed files with 2 additions and 2 deletions
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue