diff options
author | Son Ho | 2021-11-26 14:49:13 +0100 |
---|---|---|
committer | Son Ho | 2021-11-26 14:49:13 +0100 |
commit | c7f855ec9e42f7dab95e153f33f9c2fcac3e8424 (patch) | |
tree | ba5f854aa5e37d3db377eb7c075f1deec080e1df /src/Substitute.ml | |
parent | 4fa959d5e0c1deb99b3a506e21b795e36ff5f2af (diff) |
Update the env definition to make the frames easier to manipulate
Diffstat (limited to '')
-rw-r--r-- | src/Substitute.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml index fa7016b1..dc2821f0 100644 --- a/src/Substitute.ml +++ b/src/Substitute.ml @@ -31,6 +31,7 @@ let rec ty_substitute (rsubst : 'r1 -> 'r2) | Never -> Never | Integer int_ty -> Integer int_ty | Str -> Str + | TypeVar vid -> tsubst vid (** Erase the regions in a type and substitute the type variables *) let erase_regions_substitute_types (tsubst : T.TypeVarId.id -> T.ety) |