Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!cmcl2!harvard!husc6!panda!genrad!decvax!bellcore!ulysses!mhuxr!mhuxn!ihnp4!houxm!whuxl!whuxlm!akgua!gatech!drillsys!soma!bcm5000!baylor!peter
From: peter@baylor.UUCP
Newsgroups: net.lang.forth
Subject: Re: Re: Recursion forth
Message-ID: <641@baylor.UUCP>
Date: Sat, 10-May-86 15:21:08 EDT
Article-I.D.: baylor.641
Posted: Sat May 10 15:21:08 1986
Date-Received: Fri, 16-May-86 02:32:11 EDT
References: <1854@mtgzz.UUCP> <2441@yale.ARPA>
Organization: The Power Elite, Houston, TX
Lines: 17

In FIG-forth (forth-77):

: myself ?comp latest pfa cfa , ; immediate

Or, alternatively:

: recursive-function
  ...code...
  [ smudge ] recursive-function [ smudge ]
  ...code... ;

Where smudge toggles the smudge-bit in the header. Equivalent code can be
written for any reasonably sane forth. Incidentally, is there anyone else out
there who thinks Chuck Moore should be kept out of Forth standards meetings?
-- 
-- Peter da Silva
-- UUCP: ...!shell!{baylor,graffiti}!peter; MCI: PDASILVA; CIS: 70216,1076