[gforth] / gforth / bubble.fs  

gforth: gforth/bubble.fs

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

version 1.1, Mon Nov 13 18:38:35 1995 UTC version 1.2, Mon May 17 13:51:31 1999 UTC
Line 9 
Line 9 
 \ MM forth2c doesn't have it !  \ MM forth2c doesn't have it !
 : mybounds  over + swap ;  : mybounds  over + swap ;
   
   1 cells Constant cell
   
 variable seed ( -- addr)  variable seed ( -- addr)
   
 : initiate-seed ( -- )  74755 seed ! ;  : initiate-seed ( -- )  74755 seed ! ;

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