[Reduce-algebra-developers] How to change the prompt in csl reduce?

[Andrey G. G. <A.G...@in...>]

Hello *,

In psl reduce I can do

------------------------------------------------
grozin@elrond ~/reduce-1535/bin $ ./redpsl
Reduce (Free PSL version), 21-Dec-2011 ...

1: lisp$

2* copyd('setpchar!-orig,'setpchar)$

3* procedure setpchar!-my(c);
3* begin scalar w;
3*     w:=setpchar!-orig(c);
3*     promptstring!*:="xx ";
3*     return w
3* end$

4* copyd('setpchar,'setpchar!-my)$
*** Function `setpchar' has been redefined

xx bye;

Quitting
grozin@elrond ~/reduce-1535/bin $
------------------------------------------------

In csl reduce this does not work:

------------------------------------------------
grozin@elrond ~/reduce-1535/bin $ ./redcsl -w
Reduce (Free CSL version), 21-Dec-11 ...

1: lisp$

2* copyd('setpchar!-orig,'setpchar)$

3* procedure setpchar!-my(c);
3* begin scalar w;
3*     w:=setpchar!-orig(c);
3*     promptstring!*:="xx ";
3*     return w
3* end$

4* copyd('setpchar,'setpchar!-my)$

5* bye;
grozin@elrond ~/reduce-1535/bin $
------------------------------------------------

Is there some equivalent trick for csl reduce? It seems that libreduce.red 
and redfront.red use something similar for both psl and csl, e.g.

if redfront_pslp() then
    copyd('setpchar,'redfront_setpchar!-psl)
else
    copyd('setpchar,'redfront_setpchar!-csl);

but I don't see how to make it work in csl.

Andrey