From 341909bbc5c1c59e81dfad2f2532602e2561ec36 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 6 Jan 2015 18:09:26 +0100 Subject: rename: vi -> vio --- checker/check.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'checker/check.ml') diff --git a/checker/check.ml b/checker/check.ml index 1f84b56b5..bda0224ee 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -332,10 +332,10 @@ let intern_from_file (dir, f) = errorlabstrm "intern_from_file" (str "The file "++str f++str " contains unfinished tasks"); if opaque_csts <> None then begin - pp (str " (was a vi file) "); + pp (str " (was a vio file) "); Option.iter (fun (_,_,b) -> if not b then errorlabstrm "intern_from_file" - (str "The file "++str f++str " is still a .vi")) + (str "The file "++str f++str " is still a .vio")) opaque_csts; Validate.validate !Flags.debug Values.v_univopaques opaque_csts; end; @@ -344,7 +344,7 @@ let intern_from_file (dir, f) = Validate.validate !Flags.debug Values.v_opaques table; Flags.if_verbose ppnl (str" done]"); pp_flush (); let digest = - if opaque_csts <> None then Cic.Dvivo (digest,udg) + if opaque_csts <> None then Cic.Dviovo (digest,udg) else (Cic.Dvo digest) in md,table,opaque_csts,digest with e -> Flags.if_verbose ppnl (str" failed!]"); raise e in -- cgit v1.2.3