[BACK]Return to int.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/int.fs between versions 1.42 and 1.43

version 1.42, 1999/11/20 12:12:54 version 1.43, 1999/12/03 18:49:51
Line 31  require ./errore.fs \ .error ... Line 31  require ./errore.fs \ .error ...
 require ~+/kernel/version.fs    \ version-string  require ~+/kernel/version.fs    \ version-string
 require ./../chains.fs  require ./../chains.fs
   
 : tib ( -- c-addr ) \ core-ext  : tib ( -- c-addr ) \ core-ext t-i-b
     \G @i{c-addr} is the address of the Terminal Input Buffer.      \G @i{c-addr} is the address of the Terminal Input Buffer.
     \G OBSOLESCENT: @code{source} superceeds the function of this word.      \G OBSOLESCENT: @code{source} superceeds the function of this word.
     >tib @ ;      >tib @ ;
Line 243  AValue forth-wordlist \ variable, will b Line 243  AValue forth-wordlist \ variable, will b
 AVariable lookup        forth-wordlist lookup !  AVariable lookup        forth-wordlist lookup !
 \ !! last is user and lookup?! jaw  \ !! last is user and lookup?! jaw
 AVariable current ( -- addr ) \ gforth  AVariable current ( -- addr ) \ gforth
 \G @code{Variable} -- holds the wid of the current compilation word list.  \G @code{Variable} -- holds the @i{wid} of the compilation word list.
 AVariable voclink       forth-wordlist wordlist-link voclink !  AVariable voclink       forth-wordlist wordlist-link voclink !
 \ lookup AValue context ( -- addr ) \ gforth  \ lookup AValue context ( -- addr ) \ gforth
 Defer context ( -- addr ) \ gforth  Defer context ( -- addr ) \ gforth
 \G @code{context} @code{@@} is the wid of the word list at the  \G @code{context} @code{@@} is the @i{wid} of the word list at the
 \G top of the search order stack.  \G top of the search order.
   
 ' lookup is context  ' lookup is context
 forth-wordlist current !  forth-wordlist current !
Removed from v.1.42  
changed lines
  Added in v.1.43

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