Mercurial > urweb
diff src/expl_env.sml @ 100:f0f59e918cac
page declaration, up through monoize
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 10 Jul 2008 10:11:35 -0400 |
parents | d609820c5834 |
children | 813e5a52063d |
line wrap: on
line diff
--- a/src/expl_env.sml Thu Jul 10 09:24:43 2008 -0400 +++ b/src/expl_env.sml Thu Jul 10 10:11:35 2008 -0400 @@ -243,6 +243,7 @@ | DSgn (x, n, sgn) => pushSgnNamed env x n sgn | DStr (x, n, sgn, _) => pushStrNamed env x n sgn | DFfiStr (x, n, sgn) => pushStrNamed env x n sgn + | DPage _ => env fun sgiBinds env (sgi, _) = case sgi of