Mercurial > urweb

comparison src/reduce.sml @ 718:f152f215a02c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style declarations
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Apr 2009 10:08:11 -0400
parents d8217b4cb617
children acb8537f58f0
comparison
equal deleted inserted replaced
717:e28637743279 718:f152f215a02c
467 exp (namedC, namedE) [] ce, 467 exp (namedC, namedE) [] ce,
468 con namedC [] cc), loc), st) 468 con namedC [] cc), loc), st)
469 | DSequence _ => (d, st) 469 | DSequence _ => (d, st)
470 | DDatabase _ => (d, st) 470 | DDatabase _ => (d, st)
471 | DCookie (s, n, c, s') => ((DCookie (s, n, con namedC [] c, s'), loc), st) 471 | DCookie (s, n, c, s') => ((DCookie (s, n, con namedC [] c, s'), loc), st)
472 | DStyle (s, n, c, s') => ((DStyle (s, n, con namedC [] c, s'), loc), st)
472 473
473 val (file, _) = ListUtil.foldlMap doDecl (IM.empty, IM.empty) file 474 val (file, _) = ListUtil.foldlMap doDecl (IM.empty, IM.empty) file
474 in 475 in
475 file 476 file
476 end 477 end