diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-03 17:14:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-03 17:14:35 -0400 |
| commit | e2aa333c0811b2cd3003f9aac565e64f8ae37dbb (patch) | |
| tree | fbf85b7af481843c62e6690911cc12e0fb028cb9 /src/elaborate.sml | |
| parent | 411808e8dced75f376c7a95bb79d989cde704fd9 (diff) | |
More fun with HTML
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 7dc0f2e8..2ad3f936 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1810,6 +1810,11 @@ fun elabDecl ((d, loc), (env, denv, gs)) = | 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') = |