From 298d416347eca3fb0e030520bb10fef4a5a342a7 Mon Sep 17 00:00:00 2001
From: Enrique Fernandez <efcasado@gmail.com>
Date: Tue, 18 Mar 2014 16:47:55 +0100
Subject: [PATCH] Fix type error in '#info-r'/-2

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

diff --git a/src/exprecs.erl b/src/exprecs.erl
index 0b140fa..90d0779 100755
--- a/src/exprecs.erl
+++ b/src/exprecs.erl
@@ -1186,7 +1186,7 @@ f_info_1(Rname, Acc, L) ->
     Flds = get_flds(Rname, Acc),
     [funspec(L, Fname, [{[t_atom(L, fields)],
 			 t_list(L, [t_union(L, [t_atom(L,F) || F <- Flds])])},
-			{[t_atom(L, size)], t_integer(L, length(Flds))}]),
+			{[t_atom(L, size)], t_integer(L, length(Flds)+1)}]),
      {function, L, Fname, 1,
       [{clause, L, [{atom, L, fields}], [],
 	[{call, L, {atom, L, record_info},