synced to 1.0

diff --git a/ginac/function.pl b/ginac/function.pl
index 3d239d8adfe5a36500b7250b57e486ec3cf1125c..3ca1bb88d05032ec9a2bf412020ac0a4ef27319f 100755 (executable)
--- a/ginac/function.pl
+++ b/ginac/function.pl
@@ -611,6 +611,10 @@ $constructors_implementation
 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)