diff options
| author | Björn Gustavsson <[email protected]> | 2013-01-16 15:45:39 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-01-16 15:45:39 +0100 |
| commit | f13681df2b9c7c70cb4ce317c554755ea3975d8d (patch) | |
| tree | 89705cd89ec9bf6d6c66c21731f011c5ab35d631 /lib/compiler/src/compile.erl | |
| parent | 483803d8b80eac291864aa0cc894b4e6405076ff (diff) | |
| download | otp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.tar.gz otp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.tar.bz2 otp-f13681df2b9c7c70cb4ce317c554755ea3975d8d.zip | |
compile: Remove vestiges of package support
Diffstat (limited to 'lib/compiler/src/compile.erl')
| -rw-r--r-- | lib/compiler/src/compile.erl | 7 |
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. |