You might already be aware of this, I'm not sure, but you can escape a block of characters by using \Q...\E. This means your $rquote alias could simply be:
alias rquote return $+(\Q,$replacecs($1,\E,\E\\E\Q),\E)
Your way is of course valid too, just seems more complex!