diff options
| author | Son Ho | 2022-01-26 15:56:47 +0100 |
|---|---|---|
| committer | Son Ho | 2022-01-26 15:56:47 +0100 |
| commit | ac2d7f421b8511c67614eb238865961e239486c2 (patch) | |
| tree | 75e8141cb01a4175a387a2b1d0055f83815a514a /src/Substitute.ml | |
| parent | f10dff1e13c00eaa49d78f5d7ba79366fa028a73 (diff) | |
Implement sanity checks to check the types of the input/output arguments
given to backward functions
Diffstat (limited to 'src/Substitute.ml')
| -rw-r--r-- | src/Substitute.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml index 9db58812..01ce3a4e 100644 --- a/src/Substitute.ml +++ b/src/Substitute.ml @@ -9,7 +9,10 @@ module E = Expressions module A = CfimAst module C = Contexts -(** Substitute types variables and regions in a type *) +(** Substitute types variables and regions in a type. + + TODO: we can reimplement that with visitors. + *) let rec ty_substitute (rsubst : 'r1 -> 'r2) (tsubst : T.TypeVarId.id -> 'r2 T.ty) (ty : 'r1 T.ty) : 'r2 T.ty = let open T in |