Diff for /gforth/see.fs between versions 1.54 and 1.55

version 1.54, 2004/06/19 15:32:31 version 1.55, 2004/12/28 19:51:44
Line 673  Defer discode ( addr u -- ) \ gforth Line 673  Defer discode ( addr u -- ) \ gforth
     cell +loop      cell +loop
     here ;      here ;
   
   [ifundef] umin \ !! bootstrapping help
 : umin ( u1 u2 -- u )  : umin ( u1 u2 -- u )
     2dup u>      2dup u>
     if      if
         swap          swap
     then      then
     drop ;      drop ;
           [then]
   
 : next-prim ( addr1 -- addr2 ) \ gforth  : next-prim ( addr1 -- addr2 ) \ gforth
     \G find the next primitive after addr1 (unreliable)      \G find the next primitive after addr1 (unreliable)
     1+ >r -1 primstart      1+ >r -1 primstart

Removed from v.1.54  
changed lines
  Added in v.1.55


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