Diff for /gforth/kernel/cond.fs between versions 1.7 and 1.8

version 1.7, 1999/12/03 18:49:51 version 1.8, 2000/06/17 12:01:55
Line 163  Defer again-like ( dest -- addr ) Line 163  Defer again-like ( dest -- addr )
 : AGAIN ( compilation dest -- ; run-time -- ) \ core-ext  : AGAIN ( compilation dest -- ; run-time -- ) \ core-ext
     dest? again-like  POSTPONE branch  <resolve ; immediate restrict      dest? again-like  POSTPONE branch  <resolve ; immediate restrict
   
 Defer until-like  Defer until-like ( list addr xt1 xt2 -- )
 : until, ( list addr xt1 xt2 -- )  drop compile, <resolve drop ;  :noname ( list addr xt1 xt2 -- )
 ' until, IS until-like      drop compile, <resolve drop ;
   IS until-like
   
 : UNTIL ( compilation dest -- ; run-time f -- ) \ core  : UNTIL ( compilation dest -- ; run-time f -- ) \ core
     dest? ['] ?branch ['] ?branch-lp+!# until-like ; immediate restrict      dest? ['] ?branch ['] ?branch-lp+!# until-like ; immediate restrict

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


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