Mercurial > urweb

diff src/urweb.grm @ 257:32f9212583b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add 'ne' to 'eq' type class
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 Aug 2008 15:18:00 -0400
parents e52243e20858
children bacd0ba869e1
line wrap: on
line diff
--- a/src/urweb.grm	Sun Aug 31 15:15:41 2008 -0400
+++ b/src/urweb.grm	Sun Aug 31 15:18:00 2008 -0400
@@ -605,6 +605,7 @@
                                              (EApp (e, (EAbs (SYMBOL, NONE, eexp2), loc)), loc)
                                          end)
        | eexp EQ eexp                   (native_op ("eq", eexp1, eexp2, s (eexp1left, eexp2right)))
+       | eexp NE eexp                   (native_op ("ne", eexp1, eexp2, s (eexp1left, eexp2right)))
 
 eargs  : earg                           (earg)
        | eargl                          (eargl)