From e6122102507149e5f4418813c4b0b4f71ea40b2e Mon Sep 17 00:00:00 2001 From: Tuncer Ayaz Date: Mon, 22 Feb 2010 10:28:00 +0000 Subject: [PATCH] Fix escript:foldl/3 for beam and archive files escript:foldl/3 was not completely adapted to the changes introduced in 6af2ac91005276add18b1c9bbf4c8fe4f8c6e040. A partial fix has already been applied by Hakan Mattson in 4ec4a06edb5baaa0af2840943230c4a0be3a93cf. Signed-off-by: Tuncer Ayaz --- lib/stdlib/src/escript.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl index 05c42c24f012..5958a58d7c5d 100644 --- a/lib/stdlib/src/escript.erl +++ b/lib/stdlib/src/escript.erl @@ -80,7 +80,7 @@ foldl(Fun, Acc0, File) when is_function(Fun, 4) -> throw:Reason -> {error, Reason} end; - {beam, _, BeamBin, _Mode} when is_binary(BeamBin) -> + {beam, _, BeamBin, _HasRecs, _Mode} when is_binary(BeamBin) -> GetInfo = fun() -> file:read_file_info(File) end, GetBin = fun() -> BeamBin end, try @@ -89,7 +89,7 @@ foldl(Fun, Acc0, File) when is_function(Fun, 4) -> throw:Reason -> {error, Reason} end; - {archive, _, ArchiveBin, _Mode} when is_binary(ArchiveBin) -> + {archive, _, ArchiveBin, _HasRecs, _Mode} when is_binary(ArchiveBin) -> ZipFun = fun({Name, GetInfo, GetBin}, A) -> A2 = Fun(Name, GetInfo, GetBin, A),