Diff for /gforth/search.fs between versions 1.3 and 1.5

version 1.3, 1997/10/04 18:26:52 version 1.5, 1998/10/10 10:28:35
Line 38  Variable slowvoc   0 slowvoc ! Line 38  Variable slowvoc   0 slowvoc !
   
 : mappedwordlist ( map-struct -- wid )  \ gforth  : mappedwordlist ( map-struct -- wid )  \ gforth
 \G creates a wordlist with a special map-structure  \G creates a wordlist with a special map-structure
   here 0 A, swap A, voclink @ A, 0 A,    here swap A, 0 A, voclink @ A, 0 A,
   dup wordlist-link voclink !    dup wordlist-link voclink !
   dup initvoc ;    dup initvoc ;
   
Line 109  Vocabulary Root Line 109  Vocabulary Root
   
 \ set initial search order                             14may93py  \ set initial search order                             14may93py
   
 Forth-wordlist @ ' Forth >body !  Forth-wordlist wordlist-id @ ' Forth >body wordlist-id !
   
 0 vp! also Root also definitions  0 vp! also Root also definitions
 Only Forth also definitions  Only Forth also definitions
Line 130  lookup ! \ our dictionary search order b Line 130  lookup ! \ our dictionary search order b
 : seal ( -- )  context @ 1 set-order ;  : seal ( -- )  context @ 1 set-order ;
   
 : .voc  : .voc
     body> >head head>string type space ;      body> >head name>string type space ;
   
 : order ( -- )  \  search-ext  : order ( -- )  \  search-ext
     \g prints the search order and the @code{current} wordlist.  The      \g prints the search order and the @code{current} wordlist.  The

Removed from v.1.3  
changed lines
  Added in v.1.5


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