Diff for /gforth/locals-test.fs between versions 1.5 and 1.7

version 1.5, 1994/10/24 19:16:01 version 1.7, 1995/01/30 18:47:53
Line 287  teststrcmp1 Line 287  teststrcmp1
   
 1 2 3 4 puke . . . . cr  1 2 3 4 puke . . . . cr
   
   \ just some other stuff
   
   : life1 { b0 b1 b23 old -- new }
       b23 invert old b1 b0 xor and old invert b1 and b0 and or and ;
   
   : life2 { b0 b1 b23 old -- new }
       b0 b1 or old b0 xor b1 xor b23 or invert and ;
   
   $5555 $3333 $0f0f $00ff life1 .
   $5555 $3333 $0f0f $00ff life2 .
   .s
   cr
   
   : test
       1 { a }  ." after }" cr
       2 { b -- }  ." after --" cr
   ;
   test
   .s cr
   
 bye  bye

Removed from v.1.5  
changed lines
  Added in v.1.7


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>