Mercurial > urweb

changeset 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 40c33706d887
files lib/basis.urs src/urweb.grm tests/eq.ur
diffstat 3 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lib/basis.urs	Sun Aug 31 15:15:41 2008 -0400
+++ b/lib/basis.urs	Sun Aug 31 15:18:00 2008 -0400
@@ -11,8 +11,8 @@
 
 class eq
 val eq : t ::: Type -> eq t -> t -> t -> bool
+val ne : t ::: Type -> eq t -> t -> t -> bool
 val eq_int : eq int
-val eq_float : eq float
 val eq_string : eq string
 val eq_bool : eq bool
 
--- 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)
--- a/tests/eq.ur	Sun Aug 31 15:15:41 2008 -0400
+++ b/tests/eq.ur	Sun Aug 31 15:18:00 2008 -0400
@@ -3,3 +3,5 @@
 
 fun eq_pair (t1 :: Type) (t2 :: Type) (eq1 : eq t1) (eq2 : eq t2) (x : t1 * t2) (y : t1 * t2) =
         x.1 = y.1
+
+val b3 = True <> False