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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>