diff options
Diffstat (limited to 'camlp4/Camlp4/Struct/FreeVars.ml')
| -rw-r--r-- | camlp4/Camlp4/Struct/FreeVars.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/camlp4/Camlp4/Struct/FreeVars.ml b/camlp4/Camlp4/Struct/FreeVars.ml index 7ce12e24d9..69e9030367 100644 --- a/camlp4/Camlp4/Struct/FreeVars.ml +++ b/camlp4/Camlp4/Struct/FreeVars.ml @@ -106,10 +106,10 @@ module Make (Ast : Sig.Camlp4Ast) = struct method class_str_item = fun - [ <:class_str_item< inherit $_$ >> as cst -> super#class_str_item cst - | <:class_str_item< inherit $ce$ as $s$ >> -> + [ <:class_str_item< inherit $override:_$ $_$ >> as cst -> super#class_str_item cst + | <:class_str_item< inherit $override:_$ $ce$ as $s$ >> -> (o#class_expr ce)#add_atom s - | <:class_str_item< value $mutable:_$ $s$ = $e$ >> -> + | <:class_str_item< value $override:_$ $mutable:_$ $s$ = $e$ >> -> (o#expr e)#add_atom s | <:class_str_item< value virtual $mutable:_$ $s$ : $t$ >> -> (o#ctyp t)#add_atom s |