- added fderivative class to archive exam

[ginac.git] / ginac / relational.cpp

diff --git a/ginac/relational.cpp b/ginac/relational.cpp
index 88f2ad643b36659c03cdae2299533a150b971257..c4e34ddfd34ca44958e37632d6e041969f08680b 100644 (file)
--- a/ginac/relational.cpp
+++ b/ginac/relational.cpp
@@ -92,7 +92,7 @@ void relational::archive(archive_node &n) const
 DEFAULT_UNARCHIVE(relational)
 
 //////////
-// functions overriding virtual functions from bases classes
+// functions overriding virtual functions from base classes
 //////////
 
 // public
@@ -205,6 +205,14 @@ int relational::compare_same_type(const basic & other) const
        return (o < oth.o) ? -1 : 1;
 }
 
+bool relational::match_same_type(const basic & other) const
+{
+       GINAC_ASSERT(is_exactly_of_type(other, relational));
+       const relational &oth = static_cast<const relational &>(other);
+
+       return o == oth.o;
+}
+
 unsigned relational::return_type(void) const
 {
        GINAC_ASSERT(lh.return_type()==rh.return_type());