From e563cf1b47357253b2304eb19b7374afed1df8b5 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Thu, 5 Feb 2004 13:29:56 +0000 Subject: [PATCH] use a dummy location when no location is provided --- helm/ocaml/cic_disambiguation/disambiguate.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 *) -- 2.39.2