Annotation of gforth/compat/vocabulary.fs, revision 1.1
1.1 ! anton 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>