Mercurial > urweb

diff src/urweb.grm @ 2025:afeeabdcce77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
let..where..end
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Jun 2014 14:22:47 -0400
parents 403f0cc65b9c
children d11a7a9c4a73
line wrap: on
line diff
--- a/src/urweb.grm	Thu Jun 05 20:36:12 2014 +0000
+++ b/src/urweb.grm	Wed Jun 11 14:22:47 2014 -0400
@@ -1456,6 +1456,7 @@
        | UNDER                          (EWild, s (UNDERleft, UNDERright))
 
        | LET edecls IN eexp END         (ELet (edecls, eexp), s (LETleft, ENDright))
+       | LET eexp WHERE edecls END      (ELet (edecls, eexp), s (LETleft, ENDright))
 
        | LBRACK RBRACK                  (EVar (["Basis"], "Nil", Infer), s (LBRACKleft, RBRACKright))