Implement missing function.


git-svn-id: https://fricas.svn.sourceforge.net/svnroot/fricas/trunk@1697 b0c55286-4f34-0410-a049-a1e7e93b0762