; Delete the history for the current world
/def clear_hist =\
    /quote -S /: `/clear_hist_ %1

/def clear_hist_ =\
    /let old_size=$[histsize("-w%1")]%;\
    /histsize -w%1 1%;\
    /recordline -w%1%;\
    /histsize -w%1 %{old_size}