Mercurial > urweb

comparison src/mono_opt.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 2f5fd248588d
comparison
equal deleted inserted replaced
1445:6e6f1643c4e9 1446:36f7d1debb37
247 | EWrite (EFfiApp ("Basis", "htmlifyString", [e]), _) => 247 | EWrite (EFfiApp ("Basis", "htmlifyString", [e]), _) =>
248 EFfiApp ("Basis", "htmlifyString_w", [e]) 248 EFfiApp ("Basis", "htmlifyString_w", [e])
249 | EFfiApp ("Basis", "htmlifyString_w", [(EPrim (Prim.String s), loc)]) => 249 | EFfiApp ("Basis", "htmlifyString_w", [(EPrim (Prim.String s), loc)]) =>
250 EWrite (EPrim (Prim.String (htmlifyString s)), loc) 250 EWrite (EPrim (Prim.String (htmlifyString s)), loc)
251 251
252 | EWrite (EFfiApp ("Basis", "htmlifySource", [e]), _) =>
253 EFfiApp ("Basis", "htmlifySource_w", [e])
254
252 | EFfiApp ("Basis", "attrifyInt", [(EPrim (Prim.Int n), _)]) => 255 | EFfiApp ("Basis", "attrifyInt", [(EPrim (Prim.Int n), _)]) =>
253 EPrim (Prim.String (attrifyInt n)) 256 EPrim (Prim.String (attrifyInt n))
254 | EWrite (EFfiApp ("Basis", "attrifyInt", [(EPrim (Prim.Int n), _)]), loc) => 257 | EWrite (EFfiApp ("Basis", "attrifyInt", [(EPrim (Prim.Int n), _)]), loc) =>
255 EWrite (EPrim (Prim.String (attrifyInt n)), loc) 258 EWrite (EPrim (Prim.String (attrifyInt n)), loc)
256 | EWrite (EFfiApp ("Basis", "attrifyInt", [e]), _) => 259 | EWrite (EFfiApp ("Basis", "attrifyInt", [e]), _) =>