Mercurial > urweb

comparison src/corify.sml @ 721:9864b64b1700

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Classes as optional arguments to Basis.tag
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Apr 2009 14:19:15 -0400
parents acb8537f58f0
children 8688e01ae469
comparison
equal deleted inserted replaced
720:acb8537f58f0 721:9864b64b1700
1003 ([(L'.DCookie (x, n, corifyCon st c, s), loc)], st) 1003 ([(L'.DCookie (x, n, corifyCon st c, s), loc)], st)
1004 end 1004 end
1005 | L.DStyle (_, x, n) => 1005 | L.DStyle (_, x, n) =>
1006 let 1006 let
1007 val (st, n) = St.bindVal st x n 1007 val (st, n) = St.bindVal st x n
1008 val s = doRestify (mods, x) 1008 val s = relify (doRestify (mods, x))
1009 in 1009 in
1010 ([(L'.DStyle (x, n, s), loc)], st) 1010 ([(L'.DStyle (x, n, s), loc)], st)
1011 end 1011 end
1012 1012
1013 and corifyStr mods ((str, _), st) = 1013 and corifyStr mods ((str, _), st) =