diff options
author | Son Ho | 2022-01-24 07:38:30 +0100 |
---|---|---|
committer | Son Ho | 2022-01-24 07:38:30 +0100 |
commit | 536abedcbcd96922700a97de85ce2a91d807c955 (patch) | |
tree | b83073c61fc09331f8447e86328138f3af8e4366 /src/InterpreterBorrowsCore.ml | |
parent | 4db63550ab84572222ec55e694e3096189353063 (diff) |
Start working on printing for symbolic AST
Diffstat (limited to 'src/InterpreterBorrowsCore.ml')
-rw-r--r-- | src/InterpreterBorrowsCore.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/InterpreterBorrowsCore.ml b/src/InterpreterBorrowsCore.ml index 1bcff935..57e47df0 100644 --- a/src/InterpreterBorrowsCore.ml +++ b/src/InterpreterBorrowsCore.ml @@ -1094,7 +1094,7 @@ let update_aproj_loans_to_ended (abs_id : V.AbstractionId.id) (* Lookup the projector of loans *) let given_back = lookup_aproj_loans abs_id sv ctx in (* Create the new value for the projector *) - let nproj = V.AEndedProjLoans given_back in + let nproj = V.AEndedProjLoans (sv, given_back) in (* Insert it *) let ctx = update_aproj_loans abs_id sv nproj ctx in (* Return *) |