Mercurial > urweb

diff src/reduce.sml @ 29:537db4ee89f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Translation to Cjr
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 18:28:43 -0400
parents 4ab19c19665f
children d3cc191cb25f
line wrap: on
line diff
--- a/src/reduce.sml	Tue Jun 10 16:22:46 2008 -0400
+++ b/src/reduce.sml	Tue Jun 10 18:28:43 2008 -0400
@@ -145,9 +145,9 @@
         #1 (reduceExp env (subConInExp (0, c) e1))
 
       | EField ((ERecord xes, _), (CName x, _), _) =>
-        (case List.find (fn ((CName x', _), _) => x' = x
+        (case List.find (fn ((CName x', _), _, _) => x' = x
                           | _ => false) xes of
-             SOME (_, e) => #1 e
+             SOME (_, e, _) => #1 e
            | NONE => e)
 
       | _ => e