diff options
author | Son Ho | 2022-02-23 15:31:31 +0100 |
---|---|---|
committer | Son Ho | 2022-02-23 15:31:31 +0100 |
commit | 453818ff089f14d4ccf887184ba54b0cb568ffe5 (patch) | |
tree | 704897849ae590b25227a4725c784ccdc9fc7833 /src/ValuesUtils.ml | |
parent | 567ff74f543509e5e1ee65fd5c00b5a31f2cec57 (diff) |
Improve pretty-printing of environments by filtering and grouping values
which don't need to be printed
Diffstat (limited to 'src/ValuesUtils.ml')
-rw-r--r-- | src/ValuesUtils.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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 |