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/jscomp.sml | |
| parent | 039b577f61a2bdf98abe10c5f10c8e3539a59d19 (diff) | |
Each context gets its own non-repeating sequence of source numbers
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index ce64c11b..d8b2d661 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -91,8 +91,7 @@ fun process file = fun quoteExp loc (t : typ) (e, st) = case #1 t of - TSource => (strcat loc [str loc "s", - (EFfiApp ("Basis", "htmlifyInt", [e]), loc)], st) + TSource => ((EFfiApp ("Basis", "htmlifySource", [e]), loc), st) | TRecord [] => (str loc "null", st) | TRecord [(x, t)] => |