aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/search/set-order.frt
blob: 5969ea33b0d942d5a83635d6de2039da675ef1e6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
\ set a new ORDER stack

: set-order
   dup 0= if -50 throw then \ no empty search order stack
   cfg-order set-stack
;

\ A better check would be
\ : set-order 
\   dup 0 [ s" wordlists" environment search-wordlist drop execute ] literal 
\   within if cfg-order set-stack else -50 throw then 
\ ;
\