From 0977193e327e8e479961e480c80ba8e8a3d52d62 Mon Sep 17 00:00:00 2001 From: hhugo Date: Tue, 2 Aug 2016 13:35:33 +0100 Subject: [PATCH] Compiler: fix bug in Js_traverse.rename_variable --- compiler/js_traverse.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/js_traverse.ml b/compiler/js_traverse.ml index eea5d86b6f..b474cee190 100644 --- a/compiler/js_traverse.ml +++ b/compiler/js_traverse.ml @@ -448,6 +448,7 @@ class rename_variable keeps = object val mutable sub_ = new subst (fun x -> x) method merge_info from = + super#merge_info from; let h = Hashtbl.create 17 in let _ = StringSet.iter (fun name -> if StringSet.mem name keeps