Mercurial > urweb

comparison src/cjrize.sml @ 1446:36f7d1debb37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Each context gets its own non-repeating sequence of source numbers
author Adam Chlipala <adam@chlipala.net>
date Sat, 09 Apr 2011 14:36:47 -0400
parents 02fc16faecf3
children 78e0d56b594e
comparison
equal deleted inserted replaced
1445:6e6f1643c4e9 1446:36f7d1debb37
159 val (t', sm) = cify dtmap (t, sm) 159 val (t', sm) = cify dtmap (t, sm)
160 val (sm, si) = Sm.findList (sm, t, t') 160 val (sm, si) = Sm.findList (sm, t, t')
161 in 161 in
162 ((L'.TList (t', si), loc), sm) 162 ((L'.TList (t', si), loc), sm)
163 end 163 end
164 | L.TSource => ((L'.TFfi ("Basis", "int"), loc), sm) 164 | L.TSource => ((L'.TFfi ("Basis", "source"), loc), sm)
165 | L.TSignal _ => raise Fail "Cjrize: TSignal remains" 165 | L.TSignal _ => raise Fail "Cjrize: TSignal remains"
166 in 166 in
167 cify IM.empty x 167 cify IM.empty x
168 end 168 end
169 169