diff options
| author | Kostis Sagonas <[email protected]> | 2010-05-27 09:01:10 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-05-27 09:01:10 +0000 |
| commit | 8d18a0cb2c1da7181b0e1f744e26b21f885f4915 (patch) | |
| tree | 26898f8255ace5a6033fa1207c65b6f3dceb105f /lib/compiler/src/compile.erl | |
| parent | 43660f13d310752c09d2c5a3c345ac15902670a5 (diff) | |
| download | otp-8d18a0cb2c1da7181b0e1f744e26b21f885f4915.tar.gz otp-8d18a0cb2c1da7181b0e1f744e26b21f885f4915.tar.bz2 otp-8d18a0cb2c1da7181b0e1f744e26b21f885f4915.zip | |
Cleanup branch 'bg/compiler-cover-and-clean'
Commit 329f737c03db51918361e127560a6f700e99028e removed
some unused code, but also introduced the need for
further clean-ups.
Fix a spec so that its return corresponds to reality.
Take out code that will never match from a function.
Diffstat (limited to 'lib/compiler/src/compile.erl')
| -rw-r--r-- | lib/compiler/src/compile.erl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lib/compiler/src/compile.erl b/lib/compiler/src/compile.erl index 08de3059c9..d5dfde6514 100644 --- a/lib/compiler/src/compile.erl +++ b/lib/compiler/src/compile.erl @@ -900,13 +900,8 @@ expand_module(#compile{code=Code,options=Opts0}=St0) -> {ok,St0#compile{module=Mod,options=Opts,code={Mod,Exp,Forms}}}. core_module(#compile{code=Code0,options=Opts}=St) -> - case v3_core:module(Code0, Opts) of - {ok,Code,Ws} -> - {ok,St#compile{code=Code,warnings=St#compile.warnings ++ Ws}}; - {error,Es,Ws} -> - {error,St#compile{warnings=St#compile.warnings ++ Ws, - errors=St#compile.errors ++ Es}} - end. + {ok,Code,Ws} = v3_core:module(Code0, Opts), + {ok,St#compile{code=Code,warnings=St#compile.warnings ++ Ws}}. core_fold_module(#compile{code=Code0,options=Opts,warnings=Warns}=St) -> {ok,Code,Ws} = sys_core_fold:module(Code0, Opts), |