Mercurial > urweb

diff src/lacweb.grm @ 71:6431b315a1e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborate efold
author Adam Chlipala <adamc@hcoop.net>
date Thu, 26 Jun 2008 11:09:30 -0400
parents 9f89f0b00b84
children b4f2a258e52c
line wrap: on
line diff
--- a/src/lacweb.grm	Thu Jun 26 10:02:34 2008 -0400
+++ b/src/lacweb.grm	Thu Jun 26 11:09:30 2008 -0400
@@ -249,6 +249,8 @@
        | FLOAT                          (EPrim (Prim.Float FLOAT), s (FLOATleft, FLOATright))
        | STRING                         (EPrim (Prim.String STRING), s (STRINGleft, STRINGright))
 
+       | FOLD                           (EFold, s (FOLDleft, FOLDright))
+
 rexp   :                                ([])
        | ident EQ eexp                  ([(ident, eexp)])
        | ident EQ eexp COMMA rexp       ((ident, eexp) :: rexp)