[gforth] / gforth / chains.fs  

gforth: gforth/chains.fs

Diff for /gforth/chains.fs between version 1.1 and 1.2

version 1.1, Sun Jul 6 14:15:10 1997 UTC version 1.2, Sun Jul 5 20:49:58 1998 UTC
Line 16 
Line 16 
 execute all the code with "foo8 chainperform".  execute all the code with "foo8 chainperform".
 [THEN]  [THEN]
   
   has? cross
   [IF]   e? compiler
   [ELSE] true
   [THEN]
   
   [IF] \ only needed with compiler
   
 [IFUNDEF] linked  [IFUNDEF] linked
 : linked        here over @ a, swap ! ;  : linked        here over @ a, swap ! ;
 [THEN]  [THEN]
Line 25 
Line 32 
 : chained       ( xt list -- ) \ gforth  : chained       ( xt list -- ) \ gforth
   linked , ;    linked , ;
   
   [THEN]
   
 : chainperform  ( list -- ) \ gforth  : chainperform  ( list -- ) \ gforth
   BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;    BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help