Mercurial > urweb

comparison src/mono_opt.sml @ 721:9864b64b1700

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Classes as optional arguments to Basis.tag
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Apr 2009 14:19:15 -0400
parents e28637743279
children f7e2026dd5ae
comparison
equal deleted inserted replaced
720:acb8537f58f0 721:9864b64b1700
240 | EWrite (EFfiApp ("Basis", "attrifyString", [(EPrim (Prim.String s), _)]), loc) => 240 | EWrite (EFfiApp ("Basis", "attrifyString", [(EPrim (Prim.String s), _)]), loc) =>
241 EWrite (EPrim (Prim.String (attrifyString s)), loc) 241 EWrite (EPrim (Prim.String (attrifyString s)), loc)
242 | EWrite (EFfiApp ("Basis", "attrifyString", [e]), _) => 242 | EWrite (EFfiApp ("Basis", "attrifyString", [e]), _) =>
243 EFfiApp ("Basis", "attrifyString_w", [e]) 243 EFfiApp ("Basis", "attrifyString_w", [e])
244 244
245 | EFfiApp ("Basis", "attrifyCss_class", [(EPrim (Prim.String s), _)]) =>
246 EPrim (Prim.String s)
247 | EWrite (EFfiApp ("Basis", "attrifyCss_class", [(EPrim (Prim.String s), _)]), loc) =>
248 EWrite (EPrim (Prim.String s), loc)
249 | EWrite (EFfiApp ("Basis", "attrifyCss_class", [e]), _) =>
250 EFfiApp ("Basis", "attrifyString_w", [e])
251
245 | EFfiApp ("Basis", "urlifyInt", [(EPrim (Prim.Int n), _)]) => 252 | EFfiApp ("Basis", "urlifyInt", [(EPrim (Prim.Int n), _)]) =>
246 EPrim (Prim.String (urlifyInt n)) 253 EPrim (Prim.String (urlifyInt n))
247 | EWrite (EFfiApp ("Basis", "urlifyInt", [(EPrim (Prim.Int n), _)]), loc) => 254 | EWrite (EFfiApp ("Basis", "urlifyInt", [(EPrim (Prim.Int n), _)]), loc) =>
248 EWrite (EPrim (Prim.String (urlifyInt n)), loc) 255 EWrite (EPrim (Prim.String (urlifyInt n)), loc)
249 | EWrite (EFfiApp ("Basis", "urlifyInt", [e]), _) => 256 | EWrite (EFfiApp ("Basis", "urlifyInt", [e]), _) =>