Diff for /gforth/test/ttester.fs between versions 1.14 and 1.15

version 1.14, 2009/04/08 19:59:17 version 1.15, 2009/09/21 15:17:03
Line 172  HAS-FLOATING-STACK [IF] Line 172  HAS-FLOATING-STACK [IF]
     VARIABLE START-FDEPTH      VARIABLE START-FDEPTH
     VARIABLE FCURSOR      VARIABLE FCURSOR
   
       DECIMAL
     : EMPTY-FSTACK ( ... -- ... )      : EMPTY-FSTACK ( ... -- ... )
         FDEPTH START-FDEPTH @ < IF          FDEPTH START-FDEPTH @ < IF
             FDEPTH START-FDEPTH @ SWAP DO 0E LOOP              FDEPTH START-FDEPTH @ SWAP DO 0E LOOP
Line 179  HAS-FLOATING-STACK [IF] Line 180  HAS-FLOATING-STACK [IF]
         FDEPTH START-FDEPTH @ > IF          FDEPTH START-FDEPTH @ > IF
             FDEPTH START-FDEPTH @ DO FDROP LOOP              FDEPTH START-FDEPTH @ DO FDROP LOOP
         THEN ;          THEN ;
       HEX
       
     : F{ ( -- )      : F{ ( -- )
         FDEPTH START-FDEPTH ! 0 FCURSOR ! ;          FDEPTH START-FDEPTH ! 0 FCURSOR ! ;
   

Removed from v.1.14  
changed lines
  Added in v.1.15


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