diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-07 12:12:52 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-07 12:12:52 +0000 |
| commit | 389cb5de53c1fd38bbf4dbf50c6847596dc2b630 (patch) | |
| tree | 02958c0858ea12db51abccf0f6bca81d5ba0558e /checker/checker.ml | |
| parent | 7707454bc30e452ca761966f41562093237c81b9 (diff) | |
bug 2423: consider "" as the empty prefix
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14265 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 4bb5ab001..098b89469 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -31,11 +31,11 @@ let parse_dir s = decoupe_dirs [] 0 let dirpath_of_string s = match parse_dir s with - [] -> invalid_arg "dirpath_of_string" + [] -> Check.default_root_prefix | dir -> make_dirpath (List.map id_of_string dir) let path_of_string s = match parse_dir s with - [] -> invalid_arg "dirpath_of_string" + [] -> invalid_arg "path_of_string" | l::dir -> {dirpath=dir; basename=l} let (/) = Filename.concat |