diff options
| author | Son Ho | 2022-01-28 02:02:25 +0100 |
|---|---|---|
| committer | Son Ho | 2022-01-28 02:02:25 +0100 |
| commit | 85629935e24c7ae068314d3eaeffad04b0e8349f (patch) | |
| tree | 6abb71522f4483db7c3f3140761ad9f6caa6bfcf /src/PrintPure.ml | |
| parent | dc9d2c64bc2948bfdff78f1d2abae45ec9b4972c (diff) | |
Apply the micro-passes to the pure ASTs
Diffstat (limited to '')
| -rw-r--r-- | src/PrintPure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/PrintPure.ml b/src/PrintPure.ml index f78e4a97..064d8b9d 100644 --- a/src/PrintPure.ml +++ b/src/PrintPure.ml @@ -189,7 +189,7 @@ let var_to_string (fmt : type_formatter) (v : var) : string = let varname = match v.basename with | Some name -> name ^ "^" ^ VarId.to_string v.id - | None -> "@" ^ VarId.to_string v.id + | None -> "^" ^ VarId.to_string v.id in "(" ^ varname ^ " : " ^ ty_to_string fmt v.ty ^ ")" |