diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-04-09 14:36:47 -0400 |
commit | 51b2033057b25f4cecd3d5e73dc49b60b532834e (patch) | |
tree | 129120a683d01c00c6deb50349c48d8975dfd573 /src/cjrize.sml | |
parent | 039b577f61a2bdf98abe10c5f10c8e3539a59d19 (diff) |
Each context gets its own non-repeating sequence of source numbers
Diffstat (limited to 'src/cjrize.sml')
-rw-r--r-- | src/cjrize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 2c13e494..b48a4ebd 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -161,7 +161,7 @@ fun cifyTyp x = in ((L'.TList (t', si), loc), sm) end - | L.TSource => ((L'.TFfi ("Basis", "int"), loc), sm) + | L.TSource => ((L'.TFfi ("Basis", "source"), loc), sm) | L.TSignal _ => raise Fail "Cjrize: TSignal remains" in cify IM.empty x |