Skip to content

Commit b9dda9d

Browse files
committed
Fix: variadic append
1 parent 9ce11a2 commit b9dda9d

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

src/list.c

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -149,11 +149,8 @@ obj append(obj lst1, obj lst2)
149149

150150
obj append_p(obj args)
151151
{
152-
// obj chk = chkarity("append", 2, args);
153-
// if (is_err(chk))
154-
// return chk;
155152
obj lst = emptylst;
156-
for (; is_pair(args); args = cdr(args)) {
153+
for (args = reverse(args); is_pair(args); args = cdr(args)) {
157154
lst = append(car(args), lst);
158155
}
159156
return lst;

0 commit comments

Comments
 (0)