Mercurial > urweb

comparison src/cjrize.sml @ 905:7a4b026e45dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Library improvements; proper list [un]urlification; remove server-side ServerCalls; eta reduction in type inference
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Aug 2009 16:13:27 -0400
parents 493f44759879
children 10114d7b7477
comparison
equal deleted inserted replaced
904:6d9538ce94d8 905:7a4b026e45dd
110 in 110 in
111 ((L'.TFun (t1, t2), loc), sm) 111 ((L'.TFun (t1, t2), loc), sm)
112 end 112 end
113 | L.TRecord xts => 113 | L.TRecord xts =>
114 let 114 let
115 val xts = ListMergeSort.sort (fn ((x, _), (y, _)) => String.compare (x, y) = GREATER) xts
115 val old_xts = xts 116 val old_xts = xts
116 val (xts, sm) = ListUtil.foldlMap (fn ((x, t), sm) => 117 val (xts, sm) = ListUtil.foldlMap (fn ((x, t), sm) =>
117 let 118 let
118 val (t, sm) = cify dtmap (t, sm) 119 val (t, sm) = cify dtmap (t, sm)
119 in 120 in