diff options
Diffstat (limited to 'src/Print.ml')
| -rw-r--r-- | src/Print.ml | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/src/Print.ml b/src/Print.ml index 6c39366c..024d835d 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -309,14 +309,25 @@ module Values = struct let rec aproj_to_string (fmt : value_formatter) (pv : V.aproj) : string = match pv with - | AProjLoans sv -> - "[" ^ symbolic_value_to_string (value_to_rtype_formatter fmt) sv ^ "]" + | AProjLoans (sv, given_back) -> + let given_back = + if given_back = [] then "" + else + let given_back = List.map snd given_back in + let given_back = List.map (aproj_to_string fmt) given_back in + " (" ^ String.concat "," given_back ^ ") " + in + "[" + ^ symbolic_value_to_string (value_to_rtype_formatter fmt) sv + ^ given_back ^ "]" | AProjBorrows (sv, rty) -> "(" ^ symbolic_value_proj_to_string fmt sv rty ^ ")" - | AEndedProjLoans (_mv, aproj_opt) -> ( - match aproj_opt with - | None -> "_" - | Some aproj -> aproj_to_string fmt aproj) + | AEndedProjLoans given_back -> + if given_back = [] then "_" + else + let given_back = List.map snd given_back in + let given_back = List.map (aproj_to_string fmt) given_back in + "ended_aproj_loans (" ^ String.concat "," given_back ^ ")" | AEndedProjBorrows _mv -> "_" | AIgnoredProjBorrows -> "_" |