Mercurial > urweb

diff src/cjrize.sml @ 1360:02fc16faecf3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[De]serialization of times in JavaScript; proper integer division in JavaScript; Basis.crypt; Top.mkRead'; more aggressive Mono-level inlining, for values of function-y types
author Adam Chlipala <adam@chlipala.net>
date Thu, 23 Dec 2010 17:46:40 -0500
parents 87156c44824f
children 36f7d1debb37
line wrap: on
line diff
--- a/src/cjrize.sml	Thu Dec 23 11:23:31 2010 -0500
+++ b/src/cjrize.sml	Thu Dec 23 17:46:40 2010 -0500
@@ -300,7 +300,7 @@
         in
             ((L'.EUnop (s, e1), loc), sm)
         end
-      | L.EBinop (s, e1, e2) =>
+      | L.EBinop (_, s, e1, e2) =>
         let
             val (e1, sm) = cifyExp (e1, sm)
             val (e2, sm) = cifyExp (e2, sm)