peek_top-set function

Assign to/modify the top of an rstack