Add append

src/sexpr.c

@@ -23,6 +23,15 @@ SexprRef cdr(SexprRef sexpr) {
   assert(sexpr_is_pair(sexpr));
   return sexpr->data.cons.cdr;
 }
+SexprRef append(SexprRef xs, SexprRef ys) {
+  assert(sexpr_is_null(xs) || sexpr_is_pair(xs));
+  if (sexpr_is_null(xs)) {
+    return ys;
+  } else {
+    xs->data.cons.cdr = append(cdr(xs), ys);
+    return xs;
+  }
+}
 
 bool sexpr_is_null(SexprRef sexpr) {
   return sexpr == NULL;

src/sexpr.h

@@ -29,6 +29,7 @@ struct Sexpr {
 SexprRef cons(SexprRef car, SexprRef cdr);
 SexprRef car(SexprRef sexpr);
 SexprRef cdr(SexprRef sexpr);
+SexprRef append(SexprRef xs, SexprRef ys);
 
 bool sexpr_is_null(SexprRef sexpr);
 bool sexpr_is_pair(SexprRef sexpr);