(FORGET) (EXPECT) (KEY)
(FORGET)
* (FORGET) ( addr -- )

forget everything above addr
- used by FORGET

tools_misc ordinary primitive