aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2013-01-16 15:45:39 +0100
committerBjörn Gustavsson <[email protected]>2013-01-16 15:45:39 +0100
commitf13681df2b9c7c70cb4ce317c554755ea3975d8d (patch)
tree89705cd89ec9bf6d6c66c21731f011c5ab35d631
parent483803d8b80eac291864aa0cc894b4e6405076ff (diff)
downloadotp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.tar.gz
otp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.tar.bz2
otp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.zip
compile: Remove vestiges of package support
-rw-r--r--lib/compiler/src/compile.erl7
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/compiler/src/compile.erl b/lib/compiler/src/compile.erl
index 10e7f5e9ce..2d1557fa5b 100644
--- a/lib/compiler/src/compile.erl
+++ b/lib/compiler/src/compile.erl
@@ -907,11 +907,8 @@ add_default_base(St, Forms) ->
F = St#compile.filename,
case F of
"" ->
- M = case get_module(Forms) of
- PackageModule when is_list(PackageModule) -> last(PackageModule);
- M0 -> M0
- end,
- St#compile{base = atom_to_list(M)};
+ M = get_module(Forms),
+ St#compile{base=atom_to_list(M)};
_ ->
St
end.