16 The optional Search-Order word set

16.6.2.1965 ONLY SEARCH EXT

( -- )

Set the search order to the implementation-defined minimum search order. The minimum search order shall include the words FORTH-WORDLIST and SET-ORDER.

Implementation:

: ONLY ( -- ) -1 SET-ORDER ;

Testing:

T{ ONLY FORTH GET-ORDER -> get-orderlist }T

: so1 SET-ORDER ; \ In case it is unavailable in the forth wordlist

T{ ONLY FORTH-WORDLIST 1 SET-ORDER get-orderlist so1 -> }T
T{ GET-ORDER -> get-orderlist }T

ContributeContributions