[BACK]Return to search-order.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/search-order.fs between versions 1.20 and 1.21

version 1.20, 1996/09/19 22:17:36 version 1.21, 1996/10/20 20:35:25
Line 38  Defer 'initvoc Line 38  Defer 'initvoc
   
 Variable slowvoc   slowvoc off  Variable slowvoc   slowvoc off
   
   Forth-wordlist AConstant Forth-wordlist
   
 : wordlist  ( -- wid )  : wordlist  ( -- wid )
   here  0 A, Forth-wordlist wordlist-map @ A, voclink @ A, slowvoc @ A,    here  0 A,
     slowvoc @
     IF    [ Forth-wordlist wordlist-map @ ] ALiteral
     ELSE  Forth-wordlist wordlist-map @   THEN
     A, voclink @ A, slowvoc @ A,
   dup wordlist-link dup voclink ! 'initvoc ;    dup wordlist-link dup voclink ! 'initvoc ;
   
 : Vocabulary ( -- ) Create wordlist drop  DOES> context ! ;  : Vocabulary ( -- ) Create wordlist drop  DOES> context ! ;
Line 87  Create vocsearch ( -- wordlist-map ) Line 93  Create vocsearch ( -- wordlist-map )
 \ Only root                                            14may93py  \ Only root                                            14may93py
   
 wordlist \ the wordlist structure  wordlist \ the wordlist structure
 vocsearch over wordlist-map A! \ patch the map into it  vocsearch over wordlist-map ! \ patch the map into it
   
 Vocabulary Forth  Vocabulary Forth
 Vocabulary Root  Vocabulary Root
Line 96  Vocabulary Root Line 102  Vocabulary Root
   
 \ set initial search order                             14may93py  \ set initial search order                             14may93py
   
 Forth-wordlist @ ' Forth >body A!  Forth-wordlist @ ' Forth >body !
   
 vp off  also Root also definitions  vp off  also Root also definitions
 Only Forth also definitions  Only Forth also definitions
   
 lookup A! \ our dictionary search order becomes the law  lookup ! \ our dictionary search order becomes the law
   
 ' Forth >body constant forth-wordlist \ "forth definitions get-current" and "forth-wordlist" should produce the same wid  ' Forth >body to Forth-wordlist \ "forth definitions get-current" and "forth-wordlist" should produce the same wid
   
   
 \ get-order set-order                                  14may93py  \ get-order set-order                                  14may93py
Removed from v.1.20  
changed lines
  Added in v.1.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>