diff options
| author | Son Ho | 2023-11-21 12:15:37 +0100 |
|---|---|---|
| committer | Son Ho | 2023-11-21 12:15:37 +0100 |
| commit | f852e1a1334b7506c0baf366b9e75cd01b9c843e (patch) | |
| tree | b0cb53bbf9df65f9acd809765c96f0fec171cf04 /compiler/Invariants.ml | |
| parent | 753f7e72f87f5282aee60ad5ada47efeb42625e9 (diff) | |
Rename PrimitiveValues to Values
Diffstat (limited to 'compiler/Invariants.ml')
| -rw-r--r-- | compiler/Invariants.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/Invariants.ml b/compiler/Invariants.ml index 49ba8370..e0e3f354 100644 --- a/compiler/Invariants.ml +++ b/compiler/Invariants.ml @@ -2,7 +2,6 @@ * are always maintained by evaluation contexts *) open Types -open PrimitiveValues open Values open Contexts open Cps @@ -465,7 +464,7 @@ let check_typing_invariant (ctx : eval_ctx) : unit = inner_values); (* The length is necessarily concrete *) let len = - (PrimitiveValuesUtils.literal_as_scalar + (ValuesUtils.literal_as_scalar (TypesUtils.const_generic_as_literal cg)) .value in |