ALSO

( -- )

Transform the search order consisting of widn, ... wid2, wid1 (where wid1 is searched first) into widn, ... wid2, wid1, wid1. An ambiguous condition exists if there are too many word lists in the search order.

Implementation:

: ALSO ( -- )
   GET-ORDER OVER SWAP 1+ SET-ORDER
;

Testing:

T{ ALSO GET-ORDER ONLY -> get-orderlist OVER SWAP 1+ }T

ContributeContributions