diff options
Diffstat (limited to 'Dafny/Compiler.cs')
| -rw-r--r-- | Dafny/Compiler.cs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Dafny/Compiler.cs b/Dafny/Compiler.cs index b49c011f..78ea8d3d 100644 --- a/Dafny/Compiler.cs +++ b/Dafny/Compiler.cs @@ -74,7 +74,10 @@ namespace Microsoft.Dafny { }
foreach (TopLevelDecl d in m.TopLevelDecls) {
wr.WriteLine();
- if (d is DatatypeDecl) {
+ if (d is ArbitraryTypeDecl) {
+ var at = (ArbitraryTypeDecl)d;
+ Error("Arbitrary type ('{0}') cannot be compiled", at.Name);
+ } else if (d is DatatypeDecl) {
DatatypeDecl dt = (DatatypeDecl)d;
Indent(indent);
wr.Write("public abstract class Base_{0}", dt.Name);
|