From 7940ef63c654be26b41ce20162207f3c67d0b10a Mon Sep 17 00:00:00 2001 From: Quentin Garchery Date: Sun, 28 Oct 2018 00:30:23 +0200 Subject: New files SmtBtype.ml(i) for module formerly in SmtAtom --- src/verit/veritSyntax.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/verit/veritSyntax.ml') diff --git a/src/verit/veritSyntax.ml b/src/verit/veritSyntax.ml index e03cbec..b598e2c 100644 --- a/src/verit/veritSyntax.ml +++ b/src/verit/veritSyntax.ml @@ -335,7 +335,7 @@ let get_solver id = let add_solver id cl = Hashtbl.add solver id cl let clear_solver () = Hashtbl.clear solver -let btypes : (string,btype) Hashtbl.t = Hashtbl.create 17 +let btypes : (string, SmtBtype.btype) Hashtbl.t = Hashtbl.create 17 let get_btype id = try Hashtbl.find btypes id with | Not_found -> failwith ("VeritSyntax.get_btype : sort symbol \""^id^"\" not found\n") -- cgit