Mercurial > urweb

comparison src/mono_print.sml @ 720:acb8537f58f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Stop tracking CSS classes in XML types
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Apr 2009 12:31:54 -0400
parents f152f215a02c
children 4c5796512edc
comparison
equal deleted inserted replaced
719:5c099b1308ae 720:acb8537f58f0
438 string ")"] 438 string ")"]
439 | DJavaScript s => box [string "JavaScript(", 439 | DJavaScript s => box [string "JavaScript(",
440 string s, 440 string s,
441 string ")"] 441 string ")"]
442 442
443 | DStyle (s, xs) => box [string "style", 443 | DStyle s => box [string "style",
444 space, 444 space,
445 string s, 445 string s]
446 space,
447 string ":",
448 space,
449 p_list string xs]
450 446
451 447
452 fun p_file env file = 448 fun p_file env file =
453 let 449 let
454 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 450 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>