From a28556f7c96c40e1890278ea4bd67dc0b0e46856 Mon Sep 17 00:00:00 2001
From: Sven Verdoolaege <skimo@kotnet.org>
Date: Mon, 26 Mar 2007 18:01:10 +0200
Subject: [PATCH] evalue.c: evalue_frac2polynomial: properly handle relations

---
 evalue.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/evalue.c b/evalue.c
index 40d10c1..0a25fd2 100644
--- a/evalue.c
+++ b/evalue.c
@@ -3570,6 +3570,12 @@ static void evalue_frac2polynomial_r(evalue *e, int *signs, int sign, int in_fra
 	return;
     }
 
+    if (e->x.p->type == relation) {
+	for (i = e->x.p->size-1; i >= 1; --i)
+	    evalue_frac2polynomial_r(&e->x.p->arr[i], signs, sign, in_frac);
+	return;
+    }
+
     if (e->x.p->type == polynomial)
 	sign_odd *= signs[e->x.p->pos-1];
     offset = type_offset(e->x.p);
-- 
2.11.4.GIT