Diff for /gforth/compat/loops.fs between versions 1.2 and 1.3

version 1.2, 1996/11/11 17:00:07 version 1.3, 1997/06/06 17:28:13
Line 4 Line 4
   
 \ Hmm, this would be a good application for ]] ... [[  \ Hmm, this would be a good application for ]] ... [[
   
   \ The program uses the following words
   \ from CORE :
   \ : POSTPONE over min ; immediate 2dup IF swap THEN drop negate +LOOP
   \ ELSE 2drop < 1+ DO u<
   \ from CORE-EXT :
   \ ?DO u> 
   \ from BLOCK-EXT :
   \ \ 
   \ from FILE :
   \ ( 
   
 : +DO ( compile-time: -- do-sys; run-time: n1 n2 -- )  : +DO ( compile-time: -- do-sys; run-time: n1 n2 -- )
     POSTPONE over POSTPONE min POSTPONE ?do ; immediate      POSTPONE over POSTPONE min POSTPONE ?do ; immediate
   

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


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