diff options
author | Son Ho | 2021-12-06 17:42:06 +0100 |
---|---|---|
committer | Son Ho | 2021-12-06 17:42:06 +0100 |
commit | aef8056cb2773c55c2f2ba735cd34cf00a078cbb (patch) | |
tree | e000fd3012272e124c0959b6afda883662f7b06c /src/Values.ml | |
parent | 98a3f302254fa422aeaa6db726b8beb6457d2239 (diff) |
Make minor modifications
Diffstat (limited to 'src/Values.ml')
-rw-r--r-- | src/Values.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Values.ml b/src/Values.ml index 72d5c948..4acce0e6 100644 --- a/src/Values.ml +++ b/src/Values.ml @@ -214,10 +214,10 @@ and typed_value = (** Override some undefined functions *) class ['self] map_typed_value = object (self : 'self) - inherit [_] map_typed_value_incomplete as super + inherit [_] map_typed_value_incomplete method! visit_typed_value (env : 'env) (tv : typed_value) : typed_value = - let value = super#visit_value env tv.value in + let value = self#visit_value env tv.value in (* Ignore the type *) let ty = tv.ty in { value; ty } @@ -320,10 +320,10 @@ and typed_avalue = (region, aproj, aborrow_content, aloan_content) g_typed_value (** Override some undefined functions *) class ['self] map_typed_avalue = object (self : 'self) - inherit [_] map_typed_avalue_incomplete as super + inherit [_] map_typed_avalue_incomplete method! visit_typed_avalue (env : 'env) (tv : typed_avalue) : typed_avalue = - let value = super#visit_avalue env tv.value in + let value = self#visit_avalue env tv.value in (* Ignore the type *) let ty = tv.ty in { value; ty } |