[BACK]Return to toolsext.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/toolsext.fs between versions 1.1 and 1.2

version 1.1, 1994/02/11 16:30:47 version 1.2, 1994/06/17 12:35:16
Line 19  CREATE Closenest 7 chars allot Line 19  CREATE Closenest 7 chars allot
                 IF   2drop 1+                  IF   2drop 1+
                 ELSE    Closenest count compare 0= IF 1- THEN                  ELSE    Closenest count compare 0= IF 1- THEN
                 THEN                  THEN
                 ?dup 0= ?EXIT                  ?dup 0= IF EXIT THEN
           REPEAT            REPEAT
           2drop refill 0=            2drop refill 0=
         UNTIL drop ;          UNTIL drop ;
Line 45  CREATE Closenest 7 chars allot Line 45  CREATE Closenest 7 chars allot
                      ELSE s" [THEN]" compare 0= IF 1- THEN                       ELSE s" [THEN]" compare 0= IF 1- THEN
                      THEN                       THEN
                 THEN                  THEN
                 ?dup 0= ?EXIT                  ?dup 0= IF EXIT THEN
           REPEAT            REPEAT
           2drop refill 0=            2drop refill 0=
         UNTIL drop ; immediate          UNTIL drop ; immediate
Removed from v.1.1  
changed lines
  Added in v.1.2

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