WORDS now searches transient vocab only.

[forth.jl.git] / src / lib_9_vocab.4th

diff --git a/src/lib_9_vocab.4th b/src/lib_9_vocab.4th
deleted file mode 100644 (file)
index e4f836b..0000000
--- a/src/lib_9_vocab.4th
+++ /dev/null
@@ -1,68 +0,0 @@
-\ Vocabulary management
-
-: FORGET
-        BL WORD FIND >LINK  ( find the word, gets the dictionary entry address )
-        DUP @ LATEST !      ( set LATEST to point to the previous word )
-        H !                 ( and store H with the dictionary address )
-;
-
-: HIDE
-        BL WORD FIND DROP >NAME
-        DUP @ F_HIDDEN OR SWAP !
-;
-
-: VOCAB>LATEST ( vcfa -- vlatest )
-        1+ @ @ ;
-
-: ALSO
-        context #context @ + dup 1- @ swap !
-        1 #context +!
-;
-
-\ Create new vocabulary
-: VOCABULARY
-        create 0 ,
-does>
-        body> context #context @ 1- + !
-;
-
-: DEFINITIONS
-        context #context @ 1- + @ current !
-;
-
-\ Display search order and compilation dictionary
-: ORDER
-
-        \ Search order
-        context #context @ 1- + context swap
-        do
-            i @ >name .name space
-        -1 +loop
-
-        \ Current (definitions)
-        5 spaces
-        current @ >name .name
-;
-
-\ Define root vocabulary (always available)
-vocabulary ROOT
-
-: ONLY
-        1 #context !
-        root 
-        2 #context !
-        root 
-;
-
-: PREVIOUS
-        1 #context -!
-;
-
-also root definitions
-
-: FORTH forth ;
-: ALSO  also ;
-: WORDS words ;
-: ORDER order ;
-
-only forth also definitions