---

yaml
---
r: 2727
b: refs/heads/master
c: 1e9aef8
h: refs/heads/master
i:
  2725: 57cb21f
  2723: 789b278
  2719: 3569053
v: v3

Author: brson

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: d4f5f6993041e1c5a4d0de541bff14cc43784233
+refs/heads/master: 1e9aef828c057356badd464fcf7edb2f02d0b216

trunk/src/lib/list.rs

@@ -11,49 +11,49 @@ tag list[T] {
 }
 
 fn foldl[T,U](&list[T] ls, &U u, fn(&T t, &U u) -> U f) -> U {
-  alt(ls) {
-    case (cons[T](?hd, ?tl)) {
-      auto u_ = f(hd, u);
-      // FIXME: should use 'be' here, not 'ret'. But parametric
-      // tail calls currently don't work.
-      ret foldl[T,U](*tl, u_, f);
-    }
-    case (nil[T]) {
-      ret u;
+    alt(ls) {
+        case (cons[T](?hd, ?tl)) {
+            auto u_ = f(hd, u);
+            // FIXME: should use 'be' here, not 'ret'. But parametric
+            // tail calls currently don't work.
+            ret foldl[T,U](*tl, u_, f);
+        }
+        case (nil[T]) {
+            ret u;
+        }
     }
-  }
 
-  fail; // TODO: remove me when exhaustiveness checking works
+    fail; // TODO: remove me when exhaustiveness checking works
 }
 
 fn find[T,U](&list[T] ls,
              (fn(&T) -> option::t[U]) f) -> option::t[U] {
-  alt(ls) {
-    case (cons[T](?hd, ?tl)) {
-        alt (f(hd)) {
-            case (none[U]) {
-                // FIXME: should use 'be' here, not 'ret'. But parametric tail
-                // calls currently don't work.
-                ret find[T,U](*tl, f);
-            }
-            case (some[U](?res)) {
-                ret some[U](res);
+    alt(ls) {
+        case (cons[T](?hd, ?tl)) {
+            alt (f(hd)) {
+                case (none[U]) {
+                    // FIXME: should use 'be' here, not 'ret'. But parametric
+                    // tail calls currently don't work.
+                    ret find[T,U](*tl, f);
+                }
+                case (some[U](?res)) {
+                    ret some[U](res);
+                }
             }
         }
+        case (nil[T]) {
+            ret none[U];
+        }
     }
-    case (nil[T]) {
-        ret none[U];
-    }
-  }
 
-  fail; // TODO: remove me when exhaustiveness checking works
+    fail; // TODO: remove me when exhaustiveness checking works
 }
 
 fn length[T](&list[T] ls) -> uint {
-  fn count[T](&T t, &uint u) -> uint {
-    ret u + 1u;
-  }
-  ret foldl[T,uint](ls, 0u, bind count[T](_, _));
+    fn count[T](&T t, &uint u) -> uint {
+        ret u + 1u;
+    }
+    ret foldl[T,uint](ls, 0u, bind count[T](_, _));
 }
 
 fn cdr[T](&list[T] ls) -> list[T] {