Return to see.fs CVS log | Up to [gforth] / gforth |
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 |