[Flashforth-devel] Behead

[Ed <dx...@gm...>]

A utility to hide word names that are no longer needed

: name? ( name -- nfa )
  bl word latest @ (f) ?abort? c>n ;

: behead ( from to -- )
  name? name? 2dup u< if swap then 2- @ swap latest
  begin 2dup @ - while @ dup while 2- repeat then nip ! ;

\ demo
behead name? name?