Mercurial > urweb

diff src/elaborate.sml @ 93:94afff1ff7f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More fun with HTML
author Adam Chlipala <adamc@hcoop.net>
date Thu, 03 Jul 2008 17:14:35 -0400
parents 1a4c51fa615c
children f0f59e918cac
line wrap: on
line diff
--- a/src/elaborate.sml	Thu Jul 03 17:02:42 2008 -0400
+++ b/src/elaborate.sml	Thu Jul 03 17:14:35 2008 -0400
@@ -1810,6 +1810,11 @@
 
       | L.DStr (x, sgno, str) =>
         let
+            val () = if x = "Basis" then
+                         raise Fail "Not allowed to redefine structure 'Basis'"
+                     else
+                         ()
+
             val formal = Option.map (elabSgn (env, denv)) sgno
 
             val (str', sgn', gs') =