From ea14cad5cee269b7108379dec28088c3aff1c08f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 21 Jan 2006 11:03:29 +0000
Subject: Déplacement de pr_arg et pr_opt de Ppconstr vers Util

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7907 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 476725a91a..df5be249d7 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -694,6 +694,8 @@ let pr_str = str
 let pr_coma () = str "," ++ spc ()
 let pr_semicolon () = str ";" ++ spc ()
 let pr_bar () = str "|" ++ spc ()
+let pr_arg pr x = spc () ++ pr x
+let pr_opt pr = function None -> mt () | Some x -> pr_arg pr x
 
 let pr_ord n =
   let suff = match n mod 10 with 1 -> "st" | 2 -> "nd" | _ -> "th" in
-- 
cgit v1.2.3