Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1359:e525ad571e15 1360:02fc16faecf3
298 let 298 let
299 val (e1, sm) = cifyExp (e1, sm) 299 val (e1, sm) = cifyExp (e1, sm)
300 in 300 in
301 ((L'.EUnop (s, e1), loc), sm) 301 ((L'.EUnop (s, e1), loc), sm)
302 end 302 end
303 | L.EBinop (s, e1, e2) => 303 | L.EBinop (_, s, e1, e2) =>
304 let 304 let
305 val (e1, sm) = cifyExp (e1, sm) 305 val (e1, sm) = cifyExp (e1, sm)
306 val (e2, sm) = cifyExp (e2, sm) 306 val (e2, sm) = cifyExp (e2, sm)
307 in 307 in
308 ((L'.EBinop (s, e1, e2), loc), sm) 308 ((L'.EBinop (s, e1, e2), loc), sm)