From c7be6d5a1e548fe1fdfc7b3fc248613bfb7fc613 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Sun, 25 Feb 2018 16:28:00 +0100
Subject: [VM] Unify Const_sorts and Const_type, and remove Vsort.

This simplifies the representation of values, and brings it closer to
the ones of the native compiler.
---
 dev/vm_printers.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'dev/vm_printers.ml')

diff --git a/dev/vm_printers.ml b/dev/vm_printers.ml
index f819d2e6a9..bb7a963aa1 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 -> print_string "Type(...)"
+  | Asort u -> print_string "Sort(...)"
   | Aind(sp,i) ->  print_string "Ind(";
       print_string (MutInd.to_string sp);
       print_string ","; print_int i;
@@ -69,7 +69,6 @@ and ppatom a =
 
 and ppwhd whd =
   match whd with
-  | Vsort s -> ppsort s
   | Vprod _ -> print_string "product"
   | Vfun _ -> print_string "function"
   | Vfix _ -> print_vfix()
-- 
cgit v1.2.3