From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 5 Feb 2004 13:29:56 +0000 (+0000)
Subject: use a dummy location when no location is provided
X-Git-Tag: V_0_2_3~47
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=e563cf1b47357253b2304eb19b7374afed1df8b5;p=helm.git

use a dummy location when no location is provided
---

diff --git a/helm/ocaml/cic_disambiguation/disambiguate.ml b/helm/ocaml/cic_disambiguation/disambiguate.ml
index f753b30ae..a539ffd8c 100644
--- a/helm/ocaml/cic_disambiguation/disambiguate.ml
+++ b/helm/ocaml/cic_disambiguation/disambiguate.ml
@@ -196,7 +196,7 @@ let interpretate ~context ~env ast =
   in
   match ast with
   | CicAst.AttributedTerm (`Loc loc, term) -> aux loc context term
-  | _ -> assert false
+  | term -> aux (-1, -1) context term
 
 let domain_of_term ~context ast =
     (* "aux" keeps domain in reverse order and doesn't care about duplicates.
@@ -295,7 +295,7 @@ let domain_of_term ~context ast =
             
   match ast with
   | CicAst.AttributedTerm (`Loc loc, term) -> rev_uniq (aux loc context term)
-  | _ -> assert false
+  | term -> aux (-1, -1) context term
 
 
   (* dom1 \ dom2 *)