Mercurial > urweb

diff src/reduce.sml @ 754:8688e01ae469

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
A view query works
author Adam Chlipala <adamc@hcoop.net>
date Tue, 28 Apr 2009 15:04:37 -0400
parents acb8537f58f0
children 61a1f5c5ae2c
line wrap: on
line diff
--- a/src/reduce.sml	Tue Apr 28 14:02:23 2009 -0400
+++ b/src/reduce.sml	Tue Apr 28 15:04:37 2009 -0400
@@ -467,6 +467,7 @@
                                                                   exp (namedC, namedE) [] ce,
                                                                   con namedC [] cc), loc), st)
               | DSequence _ => (d, st)
+              | DView (s, n, s', e, c) => ((DView (s, n, s', exp (namedC, namedE) [] e, con namedC [] c), loc), st)
               | DDatabase _ => (d, st)
               | DCookie (s, n, c, s') => ((DCookie (s, n, con namedC [] c, s'), loc), st)
               | DStyle (s, n, s') => ((DStyle (s, n, s'), loc), st)