[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

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

version 1.42, Sat Nov 20 12:12:54 1999 UTC version 1.43, Fri Dec 3 18:49:51 1999 UTC
Line 31 
Line 31 
 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 
Line 243 
 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 !

Generate output suitable for use with a patch program
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help