---

yaml
---
r: 3150
b: refs/heads/master
c: e8d2d27
h: refs/heads/master
v: v3

Author: msullivan

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 32895ad99013b088b7dee51d173e177536103673
+refs/heads/master: e8d2d27a8866e9d0790905aee190828601d8784e

trunk/src/comp/front/lexer.rs

@@ -389,8 +389,14 @@ fn next_token(&reader rdr) -> token::token {
             alt (rdr.curr()) {
                 case ('=') { rdr.bump(); ret token::LE; }
                 case ('<') { ret binop(rdr, token::LSL); }
-                case ('-') { rdr.bump(); ret token::LARROW; }
                 case ('|') { rdr.bump(); ret token::SEND; }
+                case ('-') {
+                    rdr.bump();
+                    alt (rdr.curr()) {
+                        case ('>') { rdr.bump(); ret token::DARROW; }
+                        case (_) { ret token::LARROW; }
+                    }
+                }
                 case (_) { ret token::LT; }
             }
         }

trunk/src/comp/front/token.rs

@@ -52,6 +52,7 @@ tag token {
     SEND;
     RECV;
     LARROW;
+    DARROW;
     LPAREN;
     RPAREN;
     LBRACKET;
@@ -124,6 +125,7 @@ fn to_str(lexer::reader r, token t) -> str {
         case (SEND) { ret "<|"; }
         case (RECV) { ret "<|"; }
         case (LARROW) { ret "<-"; }
+        case (DARROW) { ret "<->"; }
         case (LPAREN) { ret "("; }
         case (RPAREN) { ret ")"; }
         case (LBRACKET) { ret "["; }