commit e5f3568a7f1b4266c47c914b6e1ee7653b09a1e0
author Gregory Katz <gregkatz@gmail.com> Tue Sep 27 14:20:55 2016 -0400
committer Gregory Katz <gregkatz@gmail.com> Tue Sep 27 19:36:30 2016 -0400
tree 199bba2e68760ddecd961297c9b52410e4eb82e2
parent a3faf259f2620fc6cc38d81b96a6814716f119b6

Added an infinite loop parser and tests.

src/expr.rs

diff --git a/src/expr.rs b/src/expr.rs
index 04395d3..8214ef7 100644
--- a/src/expr.rs
+++ b/src/expr.rs
@@ -361,7 +361,8 @@
             // TODO: ForLoop
             // TODO: Loop
             // TODO: ForLoop
-            // TODO: Loop
+            |
+            expr_loop
             // TODO: Match
             // TODO: Closure
             |
@@ -549,6 +550,21 @@
         ))
     ));
 
+    named!(expr_loop -> Expr, do_parse!(
+        id: option!(
+            terminated!(
+                preceded!(
+                    punct!("'"),
+                    ident),
+                punct!(":"))) >>
+            punct!("loop") >>
+        loop_block: block >>
+        (Expr::Loop(
+            Box::new(loop_block),
+            id,
+        ))
+    ));
+
     named!(expr_block -> Expr, map!(block, |b| Expr::Block(Box::new(b))));
 
     named!(block -> Block, do_parse!(