\ ** ficl/softwords/marker.fr
\ ** Ficl implementation of CORE EXT MARKER
\ John Sadler, 4 Oct 98
\ Requires ficl 2.02 FORGET-WID !!
.( loading MARKER ) cr
: marker   ( "name" -- )
    create
    get-current ,
    get-order dup ,
    0 ?do , loop
  does>
    0 set-order                     \ clear search order
    dup body> >name drop
    here - allot                    \ reset HERE to my xt-addr
    dup @                           ( pfa current-wid )
    dup set-current forget-wid      ( pfa )
    cell+ dup @ swap                ( count count-addr )
    over cells + swap               ( last-wid-addr count )
    0 ?do
        dup @ dup                   ( wid-addr wid wid )
        >search forget-wid          ( wid-addr )
        cell-
    loop
    drop
;