---

catamorphism · catamorphism · commit db4f13108060 · 2011-06-28T13:07:52.000-07:00
yaml --- r: 3414 b: refs/heads/master c: a7c4c19 h: refs/heads/master v: v3
diff --git a/[refs] b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: d5fc01caefed33c9633e8d26f4901f3e34a21f48
+refs/heads/master: a7c4c19d4bea6d84f63709218146f7be76d5c9f2
diff --git a/trunk/src/comp/front/ast.rs b/trunk/src/comp/front/ast.rs
@@ -173,6 +173,14 @@ fn binop_to_str(binop op) -> str {
     }
 }
 
+pred lazy_binop(binop b) -> bool {
+    alt (b) {
+        case (and) { true }
+        case (or)  { true }
+        case (_)   { false }
+    }
+}
+
 tag unop { box(mutability); deref; not; neg; }
 
 fn unop_to_str(unop op) -> str {

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,2 @@`
`1`	`1`	`---`
`2`		`-refs/heads/master: d5fc01caefed33c9633e8d26f4901f3e34a21f48`
	`2`	`+refs/heads/master: a7c4c19d4bea6d84f63709218146f7be76d5c9f2`
Original file line number	Diff line number	Diff line change
`@@ -173,6 +173,14 @@ fn binop_to_str(binop op) -> str {`
`173`	`173`	`}`
`174`	`174`	`}`
`175`	`175`
	`176`	`+pred lazy_binop(binop b) -> bool {`
	`177`	`+ alt (b) {`
	`178`	`+ case (and) { true }`
	`179`	`+ case (or) { true }`
	`180`	`+ case (_) { false }`
	`181`	`+ }`
	`182`	`+}`
	`183`	`+`
`176`	`184`	`tag unop { box(mutability); deref; not; neg; }`
`177`	`185`
`178`	`186`	`fn unop_to_str(unop op) -> str {`