Diff for /gforth/kernel/cond.fs between versions 1.4 and 1.5

version 1.4, 1998/12/08 22:03:09 version 1.5, 1999/03/23 20:24:24
Line 124  variable backedge-locals Line 124  variable backedge-locals
  POSTPONE ?branch >mark ; immediate restrict   POSTPONE ?branch >mark ; immediate restrict
   
 : ?DUP-IF ( compilation -- orig ; run-time n -- n| ) \ gforth   question-dupe-if  : ?DUP-IF ( compilation -- orig ; run-time n -- n| ) \ gforth   question-dupe-if
 \G This is the preferred alternative to the idiom "?DUP IF", since it can be  \G This is the preferred alternative to the idiom "@code{?DUP IF}", since it can be
 \G better handled by tools like stack checkers. Besides, it's faster.  \G better handled by tools like stack checkers. Besides, it's faster.
     POSTPONE ?dup-?branch >mark ;       immediate restrict      POSTPONE ?dup-?branch >mark ;       immediate restrict
   
Line 296  Defer exit-like ( -- ) Line 296  Defer exit-like ( -- )
 ' noop IS exit-like  ' noop IS exit-like
   
 : EXIT ( compilation -- ; run-time nest-sys -- ) \ core  : EXIT ( compilation -- ; run-time nest-sys -- ) \ core
       \G Return to the calling definition; usually used as a way of
       \G forcing an early return from a definition. Before
       \G @code{EXIT}ing you must clean up the return stack and
       \G @code{UNLOOP} any outstanding @code{?DO}...@code{LOOP}s.
     exit-like      exit-like
     POSTPONE ;s      POSTPONE ;s
     POSTPONE unreachable ; immediate restrict      POSTPONE unreachable ; immediate restrict

Removed from v.1.4  
changed lines
  Added in v.1.5


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