---

yaml
---
r: 2801
b: refs/heads/master
c: 83cdb47
h: refs/heads/master
i:
  2799: abe3bea
v: v3

Author: catamorphism

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: fc31aa7f85796275bcbdd836c8bd4dae60442dcc
+refs/heads/master: 83cdb47a7ce5285b815e4c11b1b0151d79391f58

trunk/src/lib/list.rs

@@ -70,6 +70,20 @@ fn car[T](&list[T] ls) -> T {
     }
 }
 
+
+fn append[T](&list[T] l, &list[T] m) -> list[T] {
+    alt (l) {
+        case (nil[T]) {
+            ret m;
+        }
+        case (cons[T](?x, ?xs)) {
+            let list[T] rest = append[T](*xs, m);
+            ret cons[T](x, @rest);
+        }
+    }
+}
+
+
 // Local Variables:
 // mode: rust;
 // fill-column: 78;