Mercurial > urweb

diff src/flat_env.sml @ 101:717b6f8d8505

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First executable generated
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Jul 2008 11:13:49 -0400
parents d3cc191cb25f
children
line wrap: on
line diff
--- a/src/flat_env.sml	Thu Jul 10 10:11:35 2008 -0400
+++ b/src/flat_env.sml	Thu Jul 10 11:13:49 2008 -0400
@@ -111,5 +111,6 @@
     case d of
         DVal (x, n, t, _) => pushENamed env x n t
       | DFun (n, x, dom, ran, _) => pushF env n x dom ran
+      | DPage _ => env
 
 end