From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Thu, 20 Apr 2000 21:41:35 +0000 (+0000)
Subject: - expairseq::to_rational(): Fixed thinko.
X-Git-Tag: release_0-6-0~14
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=a74473453218570d22f8932cc39ab48c7f0021ae;hp=af0c47009ca7a15af966430bdf1a72fe05c1c6f9

- expairseq::to_rational(): Fixed thinko.
---

diff --git a/ginac/normal.cpp b/ginac/normal.cpp
index cdaf8367..1126d27c 100644
--- a/ginac/normal.cpp
+++ b/ginac/normal.cpp
@@ -2093,10 +2093,14 @@ ex expairseq::to_rational(lst &repl_lst) const
     epvector s;
     s.reserve(seq.size());
     for (epvector::const_iterator it=seq.begin(); it!=seq.end(); ++it) {
-        s.push_back(combine_ex_with_coeff_to_pair((*it).rest.to_rational(repl_lst),
-                                                  (*it).coeff));
+        s.push_back(split_ex_to_pair(recombine_pair_to_ex(*it).to_rational(repl_lst)));
+        // s.push_back(combine_ex_with_coeff_to_pair((*it).rest.to_rational(repl_lst),
     }
-    return thisexpairseq(s, overall_coeff);
+    ex oc = overall_coeff.to_rational(repl_lst);
+    if (oc.info(info_flags::numeric))
+        return thisexpairseq(s, overall_coeff);
+    else s.push_back(combine_ex_with_coeff_to_pair(oc,_ex1()));
+    return thisexpairseq(s, default_overall_coeff());
 }