X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Fexpairseq.cpp;h=d4e13188c21c5cff02bd8b1ae2d66e370d49e165;hp=5c72362bce96023a01733fec851c61e484bfabf0;hb=e3830d7f64627be5f6f4f265c0e8effb653be6b9;hpb=b7e47bd8c2593da1ef990f8c09c4d5ee321955f5

diff --git a/ginac/expairseq.cpp b/ginac/expairseq.cpp
index 5c72362b..d4e13188 100644
--- a/ginac/expairseq.cpp
+++ b/ginac/expairseq.cpp
@@ -361,6 +361,17 @@ ex expairseq::normal(lst &sym_lst, lst &repl_lst, int level) const
     return n.bp->basic::normal(sym_lst,repl_lst,level);
 }
 
+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));
+    }
+    return thisexpairseq(s, overall_coeff);
+}
+
 ex expairseq::subs(const lst & ls, const lst & lr) const
 {
     epvector * vp=subschildren(ls,lr);