diff options
Diffstat (limited to 'contrib/field/field.ml4')
| -rw-r--r-- | contrib/field/field.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4 index 90e87c9df..5727f1fd7 100644 --- a/contrib/field/field.ml4 +++ b/contrib/field/field.ml4 @@ -23,7 +23,8 @@ let constr_of com = Astterm.interp_constr Evd.empty (Global.env()) com (* Construction of constants *) let constant dir s = - let dir = make_dirpath (List.map id_of_string ("Coq"::"field"::dir)) in + let dir = make_dirpath + (List.map id_of_string (List.rev ("Coq"::"field"::dir))) in let id = id_of_string s in try Declare.global_reference_in_absolute_module dir id |