Mercurial > urweb

diff src/jscomp.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 6e6f1643c4e9
children 290de2dcecf6
line wrap: on
line diff
--- a/src/jscomp.sml	Mon Mar 28 10:37:49 2011 -0400
+++ b/src/jscomp.sml	Sat Apr 09 14:36:47 2011 -0400
@@ -91,8 +91,7 @@
 
         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)] =>