ref: 7c76dac1b268038f567939a70a18228e790a5cbc
dir: 9ficl/softcore/marker.fr
\ ** 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
;