From ece4c17d2288a3161c99519ae84cea530eec5bd5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Wed, 30 Jan 2013 11:20:54 +0100
Subject: Fix crash in the compiler when compiling element(2, not_a_tuple)

---
 lib/compiler/src/sys_core_fold.erl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/compiler/src/sys_core_fold.erl')

diff --git a/lib/compiler/src/sys_core_fold.erl b/lib/compiler/src/sys_core_fold.erl
index d5fec0c869..07b054c5d7 100644
--- a/lib/compiler/src/sys_core_fold.erl
+++ b/lib/compiler/src/sys_core_fold.erl
@@ -1272,6 +1272,8 @@ eval_element(Call, #c_literal{val=Pos}, #c_var{name=V}, Types)
 		true ->
 		    eval_failure(Call, badarg)
 	    end;
+	{ok,_} ->
+	    eval_failure(Call, badarg);
 	error ->
 	    Call
     end;
-- 
cgit v1.2.3