diff options
| author | Håkan Mattsson <[email protected]> | 2010-02-15 14:33:04 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-02-15 14:33:04 +0000 |
| commit | 4ec4a06edb5baaa0af2840943230c4a0be3a93cf (patch) | |
| tree | aaee72a9211bfc90896b76f53dd79b0a8f81c786 /lib/stdlib | |
| parent | ebe3ab49db7cd61e35157da946628f3af32fafac (diff) | |
| download | otp-4ec4a06edb5baaa0af2840943230c4a0be3a93cf.tar.gz otp-4ec4a06edb5baaa0af2840943230c4a0be3a93cf.tar.bz2 otp-4ec4a06edb5baaa0af2840943230c4a0be3a93cf.zip | |
Fixed a case_clause error in the internal function escript:foldl/3.
Diffstat (limited to 'lib/stdlib')
| -rw-r--r-- | lib/stdlib/src/escript.erl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl index b2562c6169..05c42c24f0 100644 --- a/lib/stdlib/src/escript.erl +++ b/lib/stdlib/src/escript.erl @@ -63,7 +63,7 @@ script_name() -> %% string()). foldl(Fun, Acc0, File) when is_function(Fun, 4) -> case parse_file(File, false) of - {text, _, Forms, _Mode} when is_list(Forms) -> + {text, _, Forms, _HasRecs, _Mode} when is_list(Forms) -> GetInfo = fun() -> file:read_file_info(File) end, GetBin = fun() -> |