From 38d3bc508b3b882e81599bdb0e1d4a2572c23dd0 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 23 Dec 2010 17:46:40 -0500
Subject: [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

---
 src/cjrize.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/cjrize.sml')

diff --git a/src/cjrize.sml b/src/cjrize.sml
index 9c297fad..2c13e494 100644
--- a/src/cjrize.sml
+++ b/src/cjrize.sml
@@ -300,7 +300,7 @@ fun cifyExp (eAll as (e, loc), sm) =
         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)
-- 
cgit v1.2.3