function(unsigned, const exprseq &) constructor clears status_flags::evaluated

[ginac.git] / ginac / function.pl

diff --git a/ginac/function.pl b/ginac/function.pl
index b72a62c1ca111f52bc125d26e2e894148958827c..727eb52ff683cd386e5c1e0d221f54d302502487 100755 (executable)
--- a/ginac/function.pl
+++ b/ginac/function.pl
@@ -604,6 +604,10 @@ $constructors_implementation
 function::function(unsigned ser, const exprseq & es) : exprseq(es), serial(ser)
 {
        tinfo_key = TINFO_function;
 function::function(unsigned ser, const exprseq & es) : exprseq(es), serial(ser)
 {
        tinfo_key = TINFO_function;

+
+       // Force re-evaluation even if the exprseq was already evaluated
+       // (the exprseq copy constructor copies the flags)
+       clearflag(status_flags::evaluated);

 }
 
 function::function(unsigned ser, const exvector & v, bool discardable) 
 }
 
 function::function(unsigned ser, const exvector & v, bool discardable)