diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-08-19 21:32:46 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-08-19 21:32:46 +0000 |
| commit | e31434db0bd91d4c6b3fec8ad09b74c3613630a0 (patch) | |
| tree | 239f85961ff86c93e7135580124a319bf0850fe5 /parsing/prettyp.ml | |
| parent | be6ee173206a929ad664ff507334ad5add7ad157 (diff) | |
pas besoin de List.length pour savoir si une liste est vide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7306 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/prettyp.ml')
| -rw-r--r-- | parsing/prettyp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 2122e3a8f..ac5c7430f 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -267,7 +267,7 @@ let assumptions_for_print lna = (* *) let print_params env params = - if List.length params = 0 then + if params = [] then (mt ()) else if !Options.v7 then |