From f09ca438e24bc4016b4e778dd8fd4de4641b7636 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 9 Dec 1999 09:59:27 +0000
Subject: Discharge (encore bugge)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@223 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/termast.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parsing')

diff --git a/parsing/termast.ml b/parsing/termast.ml
index cdaa2a2686..0ddee900fb 100644
--- a/parsing/termast.ml
+++ b/parsing/termast.ml
@@ -27,7 +27,7 @@ let ids_of_ctxt cl =
        | Rel n ->
 	   warning "ids_of_ctxt: rel";
 	   id_of_string ("REL "^(string_of_int n))
-       | _-> anomaly"ids_of_ctxt")
+       | _-> anomaly "ids_of_ctxt")
     (Array.to_list cl)
 
 let ast_of_ident id = nvar (string_of_id id)
-- 
cgit v1.2.3