Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!linac!att!ucbvax!MITCH.ENG.SUN.COM!wmb
From: wmb@MITCH.ENG.SUN.COM (Mitch Bradley)
Newsgroups: comp.lang.forth
Subject: Re: Postfix control structures
Message-ID: <9103210416.AA14634@ucbvax.Berkeley.EDU>
Date: 20 Mar 91 18:08:12 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: Mitch Bradley <wmb%MITCH.ENG.SUN.COM@SCFVM.GSFC.NASA.GOV>
Organization: The Internet
Lines: 16

> I'm thinking in start to use postfix control structures. It should be easy to
> add:
> : PF-IF IF EXECUTE THEN ;
> : PF-WHILE SWAP >R BEGIN WHILE R@ EXECUTE REPEAT R> DROP ;
> and things like that. BUT.... how should I name them? Has anyone did
> something like this before? I want a good name convention...

How about:

  : ?EXECUTE  ( cfa flag -- ?? )  IF execute THEN  ;
  : #EXECUTE  ( cfa n -- ?? )  0 ?DO  >r r@ execute r>  LOOP  drop  ;
  : EXECUTE-WHILE  ( cfa -- ?? )
     >r  1  BEGIN WHILE  r@ execute  REPEAT  r> drop
  ;

Mitch