gforth: gforth/kernel/cond.fs

-version 1.7, Fri Dec  3 18:49:51 1999 UTC
+version 1.9, Sat Sep 23 15:06:09 2000 UTC
  Line 1
  Line 1
  Line 1
  \ Structural Conditionals                              12dec92py
- \ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+ \ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.
  \ This file is part of Gforth.
  Line 163
  Line 163
  Line 163
  : AGAIN ( compilation dest -- ; run-time -- ) \ core-ext
      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
      dest? ['] ?branch ['] ?branch-lp+!# until-like ; immediate restrict

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.7
 


changed lines


 
Added in v.1.9
 Legend:



Removed from v.1.7
 


changed lines


 
Added in v.1.9
-Removed from v.1.7
+Added in v.1.9