diff options
| -rw-r--r-- | library/impargs.ml | 2 | ||||
| -rw-r--r-- | test-suite/output/Arguments_renaming.out | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 13816edb1..828d652c8 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -659,7 +659,7 @@ let check_inclusion l = let rec aux = function | n1::(n2::_ as nl) -> if n1 <= n2 then - error "Sequences of implicit arguments must be of different lengths"; + error "Sequences of implicit arguments must be of different lengths."; aux nl | _ -> () in aux (List.map (fun (imps,_) -> List.length imps) l) diff --git a/test-suite/output/Arguments_renaming.out b/test-suite/output/Arguments_renaming.out index 8c5efcd89..9d90de47c 100644 --- a/test-suite/output/Arguments_renaming.out +++ b/test-suite/output/Arguments_renaming.out @@ -106,7 +106,7 @@ Expands to: Constant Top.myplus The command has indeed failed with message: Error: Arguments lists should agree on names they provide. The command has indeed failed with message: -Error: Sequences of implicit arguments must be of different lengths +Error: Sequences of implicit arguments must be of different lengths. The command has indeed failed with message: Error: Arguments names must be distinct. The command has indeed failed with message: |