Diff for /gforth/see.fs between versions 1.42 and 1.43

version 1.42, 2002/12/04 10:42:59 version 1.43, 2002/12/13 21:20:39
Line 551  Defer discode ( addr u -- ) \ gforth Line 551  Defer discode ( addr u -- ) \ gforth
 : next-head ( addr1 -- addr2 ) \ gforth  : next-head ( addr1 -- addr2 ) \ gforth
     \G find the next header starting after addr1, up to here (unreliable).      \G find the next header starting after addr1, up to here (unreliable).
     here swap u+do      here swap u+do
         i head?          i head? -2 and if
         if  
             i unloop exit              i unloop exit
         then          then
     cell +loop      cell +loop

Removed from v.1.42  
changed lines
  Added in v.1.43


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