fderivative wasn't printed correctly

diff --git a/ginac/fderivative.cpp b/ginac/fderivative.cpp
index e33ec963c4299ec701f53d7e2bc9c4627a598abc..339bc30c15c6f772a1a698260b6ad1df7fa4a71f 100644 (file)
--- a/ginac/fderivative.cpp
+++ b/ginac/fderivative.cpp
@@ -95,6 +95,12 @@ DEFAULT_UNARCHIVE(fderivative)
 // functions overriding virtual functions from base classes
 //////////
 
 // functions overriding virtual functions from base classes
 //////////
 

+void fderivative::print(const print_context & c, unsigned level) const
+{
+       // class function overrides print(), but we don't want that
+       basic::print(c, level);
+}
+

 void fderivative::do_print(const print_context & c, unsigned level) const
 {
        c.s << "D[";
 void fderivative::do_print(const print_context & c, unsigned level) const
 {
        c.s << "D[";

diff --git a/ginac/fderivative.h b/ginac/fderivative.h
index ee3405db0cea5282f801340d1dac0b35cc5055cc..06bfd6cdd7a730b197d148dca81bb0c6d66530be 100644 (file)
--- a/ginac/fderivative.h
+++ b/ginac/fderivative.h
@@ -60,6 +60,7 @@ public:
 
        // functions overriding virtual functions from base classes
 public:
 
        // functions overriding virtual functions from base classes
 public:

+       void print(const print_context & c, unsigned level = 0) const;

        ex eval(int level = 0) const;
        ex evalf(int level = 0) const;
        ex series(const relational & r, int order, unsigned options = 0) const;
        ex eval(int level = 0) const;
        ex evalf(int level = 0) const;
        ex series(const relational & r, int order, unsigned options = 0) const;