From cacb200eff810483aba9ae055bdefe751e124a53 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Wed, 2 Nov 2011 02:47:34 +0100
Subject: fixes #2

---
 compiler/sigmatch.nim | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'compiler')

diff --git a/compiler/sigmatch.nim b/compiler/sigmatch.nim
index fac7815d1..16a93f47f 100755
--- a/compiler/sigmatch.nim
+++ b/compiler/sigmatch.nim
@@ -172,7 +172,9 @@ proc minRel(a, b: TTypeRelation): TTypeRelation =
   
 proc tupleRel(mapping: var TIdTable, f, a: PType): TTypeRelation = 
   result = isNone
-  if sonsLen(a) == sonsLen(f): 
+  if sameType(f, a):
+    result = isEqual
+  elif sonsLen(a) == sonsLen(f): 
     result = isEqual
     for i in countup(0, sonsLen(f) - 1): 
       var m = typeRel(mapping, f.sons[i], a.sons[i])
-- 
cgit 1.4.1-2-gfad0