Diff for /gforth/Attic/toolsext.fs between versions 1.8 and 1.9

version 1.8, 1996/07/16 20:57:14 version 1.9, 1997/02/06 21:23:06
Line 33  Create [struct]-voc       NIL A,       [ Line 33  Create [struct]-voc       NIL A,       [
   IF  [ [struct]-voc 3 cells + ] ALiteral @ lookup !  THEN ;    IF  [ [struct]-voc 3 cells + ] ALiteral @ lookup !  THEN ;
   
 UNLOCK  Tlast @ NIL Tlast !  LOCK  UNLOCK  Tlast @ NIL Tlast !  LOCK
   \ last @  0 last !
   
 : [IF]      1 countif +! ?if ;       immediate  : [IF]      1 countif +! ?if ;       immediate
 : [THEN]   -1 countif +! ?if ;       immediate  : [THEN]   -1 countif +! ?if ;       immediate
 : [ELSE]   postpone [THEN] r> >exec postpone [IF] ;  : [ELSE]   postpone [THEN] postpone [IF] ;
                                      immediate                                       immediate
 ' [IF]   Alias [IFDEF]               immediate  ' [IF]   Alias [IFDEF]               immediate
 ' [IF]   Alias [IFUNDEF]             immediate  ' [IF]   Alias [IFUNDEF]             immediate
Line 55  UNLOCK  Tlast @ NIL Tlast !  LOCK Line 56  UNLOCK  Tlast @ NIL Tlast !  LOCK
 ' \ Alias \                          immediate  ' \ Alias \                          immediate
   
 UNLOCK Tlast @ swap Tlast ! LOCK  UNLOCK Tlast @ swap Tlast ! LOCK
   \ last @ swap last !
 1 cells - [struct]-voc !  1 cells - [struct]-voc !
   
 \ Interpretative Structuren                            30apr92py  \ Interpretative Structuren                            30apr92py

Removed from v.1.8  
changed lines
  Added in v.1.9


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