aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/search/order.frt
blob: b0c40577f6c097b7cf7806f938817090d4ecf918 (plain)
1
2
3
4
5
6
7
8
9
\ print the wids of the current word list and the search order

\ #require get-order.frt

: order ( -- )
    get-current u. cr
    get-order dup u. 
    0 ?do u. space loop
;