Fix bug in include chasing

... making it possible for the same file to be included multiple times
This commit is contained in:
Ulf Norell 2019-08-27 14:29:24 +02:00
parent 850221aaf3
commit 3ff93c5c89

View File

@ -566,7 +566,7 @@ expand_includes([{include, Ann, {string, _SAnn, File}} | AST], Included, Acc, Op
false -> false ->
Opts1 = lists:keystore(src_file, 1, Opts, {src_file, File}), Opts1 = lists:keystore(src_file, 1, Opts, {src_file, File}),
Included1 = sets:add_element(Hashed, Included), Included1 = sets:add_element(Hashed, Included),
case string(Code, Included1, Opts1) of case parse_and_scan(file(), Code, Opts1) of
{ok, AST1} -> {ok, AST1} ->
expand_includes(AST1 ++ AST, Included1, Acc, Opts); expand_includes(AST1 ++ AST, Included1, Acc, Opts);
Err = {error, _} -> Err = {error, _} ->