Explorar o código

Fix evalContext env leak, by Simn

closes #11642
Yuxiao Mao hai 1 ano
pai
achega
6e4fd96cb5
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      src/macro/eval/evalContext.ml

+ 1 - 1
src/macro/eval/evalContext.ml

@@ -467,7 +467,7 @@ let push_environment ctx info =
 		env_locals = locals;
 		env_captures = captures;
 		env_extra_locals = IntMap.empty;
-		env_parent = eval.env;
+		env_parent = if info.kind = EKEntrypoint then None else eval.env;
 		env_eval = eval;
 		env_stack_depth = stack_depth;
 	} in