From e1438154fb28c8071ff4d26459996b9dc0a8bed0 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 26 Jun 2007 14:53:08 +0000
Subject: killing some more non-exhaustive patterns

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9912 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/xlate.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'contrib/interface')

diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index c16b5215ac..fe1c55003e 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1823,6 +1823,8 @@ let rec xlate_vernac =
 	    CT_print_path (xlate_class id1, xlate_class id2)
 	| PrintCanonicalConversions ->
 	    xlate_error "TODO: Print Canonical Structures"
+	| PrintNeededAssumptions _ -> 
+	    xlate_error "TODO: Print Needed Assumptions"
 	| PrintInspect n -> CT_inspect (CT_int n)
 	| PrintUniverses opt_s -> CT_print_universes(ctf_STRING_OPT opt_s)
 	| PrintSetoids -> CT_print_setoids
-- 
cgit v1.2.3