[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.46 and 1.47

version 1.46, Tue Jan 25 22:16:30 2005 UTC version 1.47, Tue Aug 2 12:00:52 2005 UTC
Line 116 
Line 116 
     dup 0< IF dnegate THEN ;      dup 0< IF dnegate THEN ;
   
 : roll  ( x0 x1 .. xn n -- x1 .. xn x0 ) \ core-ext  : roll  ( x0 x1 .. xn n -- x1 .. xn x0 ) \ core-ext
   dup 1+ pick >r      \  dup 1+ pick >r
   cells sp@ cell+ dup cell+ rot move drop r> ;      \  cells sp@ cell+ dup cell+ rot move drop r> ;
       recursive
       dup 0<= if
           drop
       else
           swap >r 1- roll r> swap
       then ;
   
 \ place bounds                                         13feb93py  \ place bounds                                         13feb93py
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help