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

version 1.2, 1994/06/17 12:35:16 version 1.3, 1994/09/12 19:00:39
Line 14  CREATE Closenest 7 chars allot Line 14  CREATE Closenest 7 chars allot
   
 : SKIPNEST  : SKIPNEST
       1 BEGIN        1 BEGIN
           BEGIN name count dup WHILE            BEGIN name dup WHILE
                 2dup Opennest count compare 0=                  2dup Opennest count compare 0=
                 IF   2drop 1+                  IF   2drop 1+
                 ELSE    Closenest count compare 0= IF 1- THEN                  ELSE    Closenest count compare 0= IF 1- THEN
Line 36  CREATE Closenest 7 chars allot Line 36  CREATE Closenest 7 chars allot
   
 : [ELSE]  : [ELSE]
       1 BEGIN        1 BEGIN
           BEGIN name count dup WHILE            BEGIN name dup WHILE
                 comment?                  comment?
                 2dup s" [IF]" compare 0=                  2dup s" [IF]" compare 0=
                 IF   2drop 1+                  IF   2drop 1+
Line 58  CREATE Closenest 7 chars allot Line 58  CREATE Closenest 7 chars allot
 \ [IFUNDEF] [IFDEF]                                     9may93jaw  \ [IFUNDEF] [IFDEF]                                     9may93jaw
   
 : [IFUNDEF]  : [IFUNDEF]
         name find nip 0= postpone [IF] ; immediate          bl word find nip 0= postpone [IF] ; immediate
 : [IFDEF]  : [IFDEF]
         name find nip 0<> postpone [IF] ; immediate          bl word find nip 0<> postpone [IF] ; immediate
   
   
 \ [IF]?                                                 9jun93jaw  \ [IF]?                                                 9jun93jaw

Removed from v.1.2  
changed lines
  Added in v.1.3


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