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