From 4ec4a06edb5baaa0af2840943230c4a0be3a93cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?H=C3=A5kan=20Mattsson?= <hakan@erlang.org>
Date: Mon, 15 Feb 2010 14:33:04 +0000
Subject: Fixed a case_clause error in the internal function escript:foldl/3.

---
 lib/stdlib/src/escript.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/stdlib')

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() ->
-- 
cgit v1.2.3