summaryrefslogtreecommitdiff
path: root/compiler/Invariants.ml
diff options
context:
space:
mode:
authorSon Ho2022-12-02 10:02:32 +0100
committerSon HO2023-02-03 11:21:46 +0100
commit533d6d93c63b30a49475d5e09d3de08047b297f7 (patch)
treebc7194ec4e220ff566b9a81cf8bce51381e28659 /compiler/Invariants.ml
parent175949360a0208d826be89463c916fbaaa7fa8a4 (diff)
Update the comments in Values and make minor modifications
Diffstat (limited to '')
-rw-r--r--compiler/Invariants.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/Invariants.ml b/compiler/Invariants.ml
index 5b81cc02..27dcb330 100644
--- a/compiler/Invariants.ml
+++ b/compiler/Invariants.ml
@@ -561,9 +561,9 @@ let check_typing_invariant (ctx : C.eval_ctx) : unit =
| V.AIgnoredMutBorrow (_opt_bid, av), T.Mut ->
assert (av.V.ty = ref_ty)
| ( V.AEndedIgnoredMutBorrow
- { given_back_loans_proj; child; given_back_meta = _ },
+ { given_back; child; given_back_meta = _ },
T.Mut ) ->
- assert (given_back_loans_proj.V.ty = ref_ty);
+ assert (given_back.V.ty = ref_ty);
assert (child.V.ty = ref_ty)
| V.AProjSharedBorrow _, T.Shared -> ()
| _ -> raise (Failure "Inconsistent context"))