From 9903b47cdccc2fe98a905ab085cb24ca36de1aed Mon Sep 17 00:00:00 2001
From: Amin Timany
Date: Fri, 28 Apr 2017 11:12:26 +0200
Subject: Disable debug printing

Fix a mistake in record declaration
---
 test-suite/bugs/closed/3330.v     | 6 ++----
 test-suite/success/polymorphism.v | 2 +-
 2 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/3330.v b/test-suite/bugs/closed/3330.v
index a497e7a987..672fb3f131 100644
--- a/test-suite/bugs/closed/3330.v
+++ b/test-suite/bugs/closed/3330.v
@@ -1072,10 +1072,8 @@ Section Adjunction.
   Variable F : Functor C D.
   Variable G : Functor D C.
 
-(*  Let Adjunction_Type := 
-    Eval simpl in (hom_functor D) o (F^op, 1) <~=~> (hom_functor C) o (1, G).*)
-
-  Set Printing All. Set Printing Universes.
+ Let Adjunction_Type := 
+    Eval simpl in (hom_functor D) o (F^op, 1) <~=~> (hom_functor C) o (1, G).
 
   Record AdjunctionHom :=
     {
diff --git a/test-suite/success/polymorphism.v b/test-suite/success/polymorphism.v
index f57cbcc2b7..ecc988507c 100644
--- a/test-suite/success/polymorphism.v
+++ b/test-suite/success/polymorphism.v
@@ -360,7 +360,7 @@ End F.
 
 Set Universe Polymorphism.
 
-Record box (X : Type) (T := Type) : Type := wrap { unwrap : T }.
+Cumulative Record box (X : Type) (T := Type) : Type := wrap { unwrap : T }.
 
 Section test_letin_subtyping.
   Universe i j k i' j' k'.
-- 
cgit v1.2.3