Path: ...!3.eu.feeder.erje.net!feeder.erje.net!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: sjack@dontemail.me (sjack)
Newsgroups: comp.lang.forth
Subject: Re: recursion
Date: Tue, 16 Jul 2024 12:02:39 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 22
Message-ID: <v75ngv$18mqt$1@dont-email.me>
References: <v6c8v0$3usoe$1@dont-email.me> <v71gpb$jsug$1@solani.org> <nnd$79e41f47$2235e236@caa216183355b959> <d8a7bf3190d012f4d6e588cf7f4f4ee1@www.novabbs.com> <2024Jul15.152917@mips.complang.tuwien.ac.at>
Injection-Date: Tue, 16 Jul 2024 14:02:40 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="5a0575a9d0b06c045a4b8932d2a3ed2a";
	logging-data="1334109"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19Fmq6D4sX3bEJkyBeH1QfC"
User-Agent: tin/2.6.2-20220130 ("Convalmore") (Linux/6.5.0-41-generic (x86_64))
Cancel-Lock: sha1:fNLY+zQg6HkTWrg063lHC7skBJM=
Bytes: 1494

Anton Ertl <anton@mips.complang.tuwien.ac.at> wrote:
> forward foo
> 
> : bar ( n -- ) dup . 1- foo ;
> 
> : foo ( n -- ) dup 0> if bar else drop then ;
> 
> 5 foo \ prints "5 4 3 2 1 "
> 


Toad code using Wil Baden type local macros ( /MM: MM ):

"dup . 1- myself" /mm: bar  OK

: foo dup 0> if mm bar else drop then ;  OK

5 foo 5 4 3 2 1  OK

Note: The macro BAR does not remain in the system image.
-- 
me