Mercurial > urweb

comparison src/cjrize.sml @ 166:a991431b77eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of unurlify for datatypes
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 14:28:44 -0400
parents e52dfb1e6b19
children 25b169416ea8
comparison
equal deleted inserted replaced
165:e52dfb1e6b19 166:a991431b77eb
82 sm xts 82 sm xts
83 val (sm, si) = Sm.find (sm, old_xts, xts) 83 val (sm, si) = Sm.find (sm, old_xts, xts)
84 in 84 in
85 ((L'.TRecord si, loc), sm) 85 ((L'.TRecord si, loc), sm)
86 end 86 end
87 | L.TNamed n => ((L'.TNamed n, loc), sm) 87 | L.TNamed n => ((L'.TDatatype n, loc), sm)
88 | L.TFfi mx => ((L'.TFfi mx, loc), sm) 88 | L.TFfi mx => ((L'.TFfi mx, loc), sm)
89 89
90 val dummye = (L'.EPrim (Prim.Int 0), ErrorMsg.dummySpan) 90 val dummye = (L'.EPrim (Prim.Int 0), ErrorMsg.dummySpan)
91 91
92 fun cifyExp ((e, loc), sm) = 92 fun cifyExp ((e, loc), sm) =