aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/vocabulary.frt
blob: 6f47dfd24b314fab1206a5008e6357e072d9a94e (plain)
1
2
3
4
5
6
7
8
9
10
11
\ create a vocabulary, at runtime replace
\ the first entry in the search-list
: vocabulary ( "char" -- )
    <builds
      wordlist ,
    does>
      @i >r
      get-order nip
      r> swap
      set-order
;