From 401f17afa2e9cc3f2d734aef0d71a2c363838ebd Mon Sep 17 00:00:00 2001
From: pboutill
Date: Fri, 2 Mar 2012 22:30:29 +0000
Subject: Noise for nothing

Util only depends on Ocaml stdlib and Utf8 tables.
Generic pretty printing and loc functions are in Pp.
Generic errors are in Errors.

+ Training white-spaces, useless open, prlist copies random erasure.
Too many "open Errors" on the contrary.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15020 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/printer.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 0a3926660f..3d2f3e0891 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -7,6 +7,7 @@
 (************************************************************************)
 
 open Pp
+open Errors
 open Util
 open Names
 open Nameops
@@ -505,17 +506,17 @@ let pr_prim_rule = function
        ++ pr_id id ++ str" (type of "  ++ pr_id id ++ str ")")
 
   | Thin ids ->
-      (str"clear "  ++ prlist_with_sep pr_spc pr_id ids)
+      (str"clear "  ++ pr_sequence pr_id ids)
 
   | ThinBody ids ->
-      (str"clearbody "  ++ prlist_with_sep pr_spc pr_id ids)
+      (str"clearbody "  ++ pr_sequence pr_id ids)
 
   | Move (withdep,id1,id2) ->
       (str (if withdep then "dependent " else "") ++
 	 str"move "  ++ pr_id id1 ++ pr_move_location pr_id id2)
 
   | Order ord ->
-      (str"order "  ++ prlist_with_sep pr_spc pr_id ord)
+      (str"order "  ++ pr_sequence pr_id ord)
 
   | Rename (id1,id2) ->
       (str "rename " ++ pr_id id1 ++ str " into " ++ pr_id id2)
-- 
cgit v1.2.3