PREVIOUS

( -- )

Transform the search order consisting of widn, ... wid2, wid1 (where wid1 is searched first) into widn, ... wid2. An ambiguous condition exists if the search order was empty before PREVIOUS was executed.

Implementation:

: PREVIOUS ( -- ) GET-ORDER NIP 1- SET-ORDER ;

ContributeContributions