diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-19 15:19:34 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-19 15:19:34 +0000 |
| commit | 274f5a939427a0ba5bc0e01bc0d4ab482d3d9e7e (patch) | |
| tree | 7f7231ecd51c32cbda06cb82fab9cf8182d979ec /contrib/extraction/test/ml2v.ml | |
| parent | 8a009c8729dd6905dd7d47877b444fa38dd2e221 (diff) | |
scripts; extraction False_rec
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1635 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/test/ml2v.ml')
| -rw-r--r-- | contrib/extraction/test/ml2v.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/test/ml2v.ml b/contrib/extraction/test/ml2v.ml index f891b40ff..2cf9190e1 100644 --- a/contrib/extraction/test/ml2v.ml +++ b/contrib/extraction/test/ml2v.ml @@ -4,7 +4,7 @@ let _ = let fml = Sys.argv.(1) in let f = Filename.chop_extension fml in let fv = f ^ ".v" in - if Sys.file_exists fv then + if Sys.file_exists ("../../../" ^ fv) then print_endline fv else let d = Filename.dirname f in |