From 1881da69b1c212c54afc54a1d7e53f3d064a2e4f Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 30 Apr 2001 11:32:46 +0000
Subject: ocamlweb

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1728 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/extraction.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
index 744dc5f281..c48580dac3 100644
--- a/contrib/extraction/extraction.ml
+++ b/contrib/extraction/extraction.ml
@@ -160,7 +160,7 @@ let v_of_t env t = match get_arity env t with
 type binders = (identifier * constr) list
 
 (* Convention: right binders give [Rel 1] at the head, like those answered by 
-   decompose_prod. Left binders are the converse. *)
+   [decompose_prod]. Left binders are the converse. *)
 
 let rec lbinders_fold f acc env = function 
   | [] -> acc
-- 
cgit v1.2.3