diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-01-06 18:09:26 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-01-06 18:09:35 +0100 |
| commit | 341909bbc5c1c59e81dfad2f2532602e2561ec36 (patch) | |
| tree | 28fb527cb921b4e02d4722549a24f6e2366f5c76 /checker/check.ml | |
| parent | bf16900f43c1291136673e7614587fe51eebc88f (diff) | |
rename: vi -> vio
Diffstat (limited to 'checker/check.ml')
| -rw-r--r-- | checker/check.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |