From 4211ec9bd6e9d8172f74cdb56a1207fc1d64990f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 29 Jul 2012 12:27:13 -0400
Subject: Remove 'class' declaration; now use 'con' instead

---
 src/elab_env.sml | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/elab_env.sml')

diff --git a/src/elab_env.sml b/src/elab_env.sml
index f31804f2..5d684817 100644
--- a/src/elab_env.sml
+++ b/src/elab_env.sml
@@ -1647,13 +1647,6 @@ fun declBinds env (d, loc) =
         in
             pushENamedAs env x n ct
         end
-      | DClass (x, n, k, c) =>
-        let
-            val k = (KArrow (k, (KType, loc)), loc)
-            val env = pushCNamedAs env x n k (SOME c)
-        in
-            pushClass env n
-        end
       | DDatabase _ => env
       | DCookie (tn, x, n, c) =>
         let
-- 
cgit v1.2.3