From 07e861c1792fcc3bde091640ee5e42b398cfa6da Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Mon, 12 Feb 2018 09:54:57 +0100
Subject: Add test case for #6677.

---
 dev/vm_printers.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dev')

diff --git a/dev/vm_printers.ml b/dev/vm_printers.ml
index b410d017d0..f819d2e6a9 100644
--- a/dev/vm_printers.ml
+++ b/dev/vm_printers.ml
@@ -61,7 +61,7 @@ and ppstack s =
 and ppatom a =
   match a with
   | Aid idk -> print_idkey idk
-  | Atype (u,l) -> print_string "Type(...)"
+  | Atype u -> print_string "Type(...)"
   | Aind(sp,i) ->  print_string "Ind(";
       print_string (MutInd.to_string sp);
       print_string ","; print_int i;
-- 
cgit v1.2.3