Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!hellgate.utah.edu!caen!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!ucbvax!MITCH.ENG.SUN.COM!wmb
From: wmb@MITCH.ENG.SUN.COM (Mitch Bradley)
Newsgroups: comp.lang.forth
Subject: FOR .. NEXT
Message-ID: <9102122128.AA05006@ucbvax.Berkeley.EDU>
Date: 12 Feb 91 19:21:20 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: Mitch Bradley <wmb%MITCH.ENG.SUN.COM@SCFVM.GSFC.NASA.GOV>
Organization: The Internet
Lines: 12

> JS> : THRU ( 1st last)
> JS>   1+ OVER -
> JS>   FOR  DUP PUSH  LOAD  POP 1+  ?SCROLL  NEXT  DROP ;

: THRU  ( first last -- )   1+ SWAP  DO  I LOAD  LOOP  ;

You see, DO .. LOOP does have its advantages in some applications.

I find it amusing that Chuck introduced a bug in cmForth because of
his zeal for eliminating DO .. LOOP

Mitch