X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Ffunction.pl;h=f6e7b33276ea306d6bd6c7df7d2a46d26962c539;hp=b36df872337b225da8534ed867741009e6d92347;hb=aef64ef1f63f7b4cb9236c5c189873e48c6c999b;hpb=0af4f02790c8ae93f74b833a492c4a39ba7c342a

diff --git a/ginac/function.pl b/ginac/function.pl
index b36df872..f6e7b332 100755
--- a/ginac/function.pl
+++ b/ginac/function.pl
@@ -345,6 +345,7 @@ public:
 	ex evalf(int level=0) const;
 	unsigned calchash(void) const;
 	ex series(const relational & r, int order, unsigned options = 0) const;
+	ex subs(const lst & ls, const lst & lr) const;
 	ex thisexprseq(const exvector & v) const;
 	ex thisexprseq(exvector * vp) const;
 protected:
@@ -821,6 +822,19 @@ ${series_switch_statement}
 	throw(std::logic_error("function::series(): invalid nparams"));
 }
 
+ex function::subs(const lst & ls, const lst & lr) const
+{
+	GINAC_ASSERT(ls.nops() == lr.nops());
+
+	for (unsigned i=0; i<ls.nops(); i++) {
+		if (is_ex_of_type(ls.op(i), function) &&
+		    compare_same_type(ex_to_function(ls.op(i)))==0)
+			return lr.op(i);
+	}
+
+	return inherited::subs(ls, lr);
+}
+
 // protected