This function returns the current ring. The related command,
RingEnv returns the name of the current ring.
Example
Use R ::= QQ[x,y];
Use S ::= ZZ/(3)[t];
CurrentRing();
ZZ/(3)[t]
-------------------------------
Use R;
CurrentRing();
QQ[x,y]
-------------------------------