From a6b66d89119e3ae9e4b34f17b97138776b750f0d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Thu, 11 Feb 2021 12:57:40 +0100 Subject: compile: Restrict types of outfile/3 The Ext argument in outfile(Base, Ext, Opts) must now be a list (the clause allowing an atom was not covered). --- lib/compiler/src/compile.erl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lib/compiler/src/compile.erl') diff --git a/lib/compiler/src/compile.erl b/lib/compiler/src/compile.erl index 8cb0b4381b..356d5eb014 100644 --- a/lib/compiler/src/compile.erl +++ b/lib/compiler/src/compile.erl @@ -1727,9 +1727,7 @@ erlfile(".", Base, Suffix) -> erlfile(Dir, Base, Suffix) -> filename:join(Dir, Base ++ Suffix). -outfile(Base, Ext, Opts) when is_atom(Ext) -> - outfile(Base, atom_to_list(Ext), Opts); -outfile(Base, Ext, Opts) -> +outfile(Base, Ext, Opts) when is_list(Ext) -> Obase = case keyfind(outdir, 1, Opts) of {outdir, Odir} -> filename:join(Odir, Base); _Other -> Base % Not found or bad format -- cgit v1.2.1