1 \ ** ficl/softwords/marker.fr
2 \ ** Ficl implementation of CORE EXT MARKER
3 \ John Sadler, 4 Oct 98
4 \ Requires ficl 2.02 FORGET-WID !!
14 0 set-order \ clear search order
16 here - allot \ reset HERE to my xt-addr
17 dup @ ( pfa current-wid )
18 dup set-current forget-wid ( pfa )
19 cell+ dup @ swap ( count count-addr )
20 over cells + swap ( last-wid-addr count )
22 dup @ dup ( wid-addr wid wid )
23 >search forget-wid ( wid-addr )