From a75aaa90b3b827f9ef002491bc081df36260f136 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 9 Apr 2009 12:31:56 -0400
Subject: Made type class system very general; demo compiles

---
 src/elab_env.sig | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/elab_env.sig')

diff --git a/src/elab_env.sig b/src/elab_env.sig
index 10d11e3b..4b927a16 100644
--- a/src/elab_env.sig
+++ b/src/elab_env.sig
@@ -72,6 +72,7 @@ signature ELAB_ENV = sig
     val pushClass : env -> int -> env
     val isClass : env -> Elab.con -> bool
     val resolveClass : env -> Elab.con -> Elab.exp option
+    val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list
 
     val pushERel : env -> string -> Elab.con -> env
     val lookupERel : env -> int -> string * Elab.con
-- 
cgit v1.2.3