5
6: marker ( "name" -- )
7 create
8 get-current ,
9 get-order dup ,
10 0 ?do , loop
11 does>
12 0 set-order \ clear search order
--- 13 unchanged lines hidden --- | 7
8: marker ( "name" -- )
9 create
10 get-current ,
11 get-order dup ,
12 0 ?do , loop
13 does>
14 0 set-order \ clear search order
--- 13 unchanged lines hidden --- |