[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.11 and 1.12

version 1.11, Fri Feb 5 16:08:16 1999 UTC version 1.12, Tue Mar 23 20:24:23 1999 UTC
Line 30 
Line 30 
   
 [IFUNDEF] r@  [IFUNDEF] r@
 ' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch  ' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch
 \G copy w from the return stack to the data stack  \G Copy @var{w} from the return stack to the data stack.
 [THEN]  [THEN]
   
 \ !! this is machine-dependent, but works on all but the strangest machines  \ !! this is machine-dependent, but works on all but the strangest machines
Line 170 
Line 170 
 \ !! use a separate exception stack?           anton  \ !! use a separate exception stack?           anton
   
 has? glocals [IF]  has? glocals [IF]
 : lp@ ( -- addr ) \ gforth      l-p-fetch  : lp@ ( -- addr ) \ gforth      lp-fetch
  laddr# [ 0 , ] ;   laddr# [ 0 , ] ;
 [THEN]  [THEN]
   
Line 258 
Line 258 
     rdrop ;      rdrop ;
   
 : abort ( ?? -- ?? ) \ core,exception-ext  : abort ( ?? -- ?? ) \ core,exception-ext
       \G Empty the data stack and perform the functions of @code{quit}.
       \G Since the exception word set is present, this is performed by
       \G @code{-1 throw}.
     -1 throw ;      -1 throw ;
   
 \ ?stack                                               23feb93py  \ ?stack                                               23feb93py
Line 273 
Line 276 
 \ DEPTH                                                 9may93jaw  \ DEPTH                                                 9may93jaw
   
 : depth ( -- +n ) \ core depth  : depth ( -- +n ) \ core depth
     \G +n is the number of values that were on the data stack before      \G @var{+n} is the number of values that were on the data stack before
     \G +n itself was placed on the stack.      \G @var{+n} itself was placed on the stack.
     sp@ sp0 @ swap - cell / ;      sp@ sp0 @ swap - cell / ;
   
 : clearstack ( ... -- ) \ gforth clear-stack  : clearstack ( ... -- ) \ gforth clear-stack

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help