Re: [Ficl-developers] Mutual recursion
Brought to you by:
jsadler
From: john s. <joh...@al...> - 2001-11-26 17:00:35
|
That's pretty much how it's done. If you're doing a lot of indirect execution, you could make a table of XTs, or you could make a defining word that factors the common code... : noop ; \ doo-nothing word to default an execution vector.. : vector create ['] noop , does> @ execute ; : !vector ' >body : tovector ' >body ! ; \ now try this... : noop2 ." nothing happens " cr ; vector v v ' noop2 tovector v v At 11/22/01 03:59 PM, you wrote: >Hi FICL, > > I note that the oo classes have the 'suspend class' construct which > permits mutual references between classes. > > But I notice that outside oo, there's no 'is' word for binding a > ':noname' body with an earlier defined word. > > Does anyone have any ideas about forward-declaring words? > > I've thought up something that's pretty disgusting: > > variable word1-xt > variable word2-xt > > : word1 word1-xt @ execute ; > : word2 word2-xt @ execute ; > > : word1-body > ... > \ call to word2 > word2 > ... > ; ' word1-body word1-xt ! > > : word2-body > ... > \ call to word1 > word1 > ... > ; ' word2-body word2-xt ! > > Any improvements on this? > >-- >Regards, > David mailto:da...@re... > > > >_______________________________________________ >Ficl-developers mailing list >Fic...@li... >https://lists.sourceforge.net/lists/listinfo/ficl-developers John Sadler - joh...@al... T 650-595-4954 F 603-687-2885 C 415-271-6795 |