[gforth] / gforth / compat / vocabulary.fs

gforth: gforth/compat/vocabulary.fs

1 :	anton	1.1	\ vocabulary
2 :
3 :			\ This file is in the public domain. NO WARRANTY.
4 :
5 :			\ The program uses the following words
6 :			\ from CORE :
7 :			\ : Create , DOES> @ >r dup 0= and r> swap ;
8 :			\ from CORE-EXT :
9 :			\ nip
10 :			\ from BLOCK-EXT :
11 :			\ \
12 :			\ from EXCEPTION :
13 :			\ throw
14 :			\ from FILE :
15 :			\ (
16 :			\ from SEARCH :
17 :			\ wordlist get-order set-order
18 :
19 :			: vocabulary ( -- )
20 :			wordlist create ,
21 :			does> ( -- )
22 :			\ replaces the wordlist on the top of the search list with the
23 :			\ vocabulary's wordlist
24 :			@ >r
25 :			get-order dup 0= -50 and throw \ search-order underflow
26 :			nip r> swap
27 :			set-order ;
28 :