
$20000000 constant (dp)
$20000004 constant (latest)

: del ( -- ) \ Remove the latest definition in RAM.
  (latest) @ $20000000 u>=
  if
    (latest) @ (dp) !
    (latest) @ @ (latest) !
  then
;

: forget ( -- ) \ Usage: forget name, but it will work on definitions in RAM only.
  ' dup $20000000 u>=
  if
    begin
      del             \ Remove definitions
      here over u<=    \   until here is below the code start of the definition which should be forgotten.
    until
  then
  drop
;
