diff options
| author | letouzey | 2005-08-19 21:32:46 +0000 |
|---|---|---|
| committer | letouzey | 2005-08-19 21:32:46 +0000 |
| commit | e31434db0bd91d4c6b3fec8ad09b74c3613630a0 (patch) | |
| tree | 239f85961ff86c93e7135580124a319bf0850fe5 /contrib | |
| 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 'contrib')
| -rw-r--r-- | contrib/xml/cic2acic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/xml/cic2acic.ml b/contrib/xml/cic2acic.ml index a0faa6426e..54510ba179 100644 --- a/contrib/xml/cic2acic.ml +++ b/contrib/xml/cic2acic.ml @@ -697,7 +697,7 @@ print_endline "PASSATO" ; flush stdout ; let compute_result_if_eta_expansion_not_required subst residual_args = - let residual_args_not_empty = List.length residual_args > 0 in + let residual_args_not_empty = residual_args <> [] in let h' = if residual_args_not_empty then aux' env idrefs ~subst:(None,subst) h |