From 453818ff089f14d4ccf887184ba54b0cb568ffe5 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 23 Feb 2022 15:31:31 +0100
Subject: Improve pretty-printing of environments by filtering and grouping
 values which don't need to be printed

---
 src/ValuesUtils.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ValuesUtils.ml')

diff --git a/src/ValuesUtils.ml b/src/ValuesUtils.ml
index 623703ee..9aeb15f4 100644
--- a/src/ValuesUtils.ml
+++ b/src/ValuesUtils.ml
@@ -20,6 +20,8 @@ let mk_box_value (v : typed_value) : typed_value =
   let box_v = Adt { variant_id = None; field_values = [ v ] } in
   mk_typed_value box_ty box_v
 
+let is_bottom (v : value) : bool = match v with Bottom -> true | _ -> false
+
 let is_symbolic (v : value) : bool =
   match v with Symbolic _ -> true | _ -> false
 
-- 
cgit v1.2.3