From 7dc26380b4cb9bf53c6ab0c6a6473e1c8c188d49 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 2 Oct 2003 12:34:27 +0000
Subject: as au niveau de app

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

diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml
index 51b2a69535..3b4f3296cb 100644
--- a/translate/ppconstrnew.ml
+++ b/translate/ppconstrnew.ml
@@ -118,7 +118,7 @@ let pr_or_var pr = function
   | Genarg.ArgArg x -> pr x
   | Genarg.ArgVar (loc,s) -> pr_with_comments loc (pr_id s)
 
-let las = 12
+let las = lapp
 
 let rec pr_patt inh p =
   let (strm,prec) = match p with
-- 
cgit v1.2.3