Mercurial > urweb
comparison src/cjrize.sml @ 1446:36f7d1debb37
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 |