Path: csiph.com!news.swapon.de!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Paul Rubin <no.email@nospam.invalid>
Newsgroups: comp.lang.forth
Subject: Re: Avoid treating the stack as an array [Re: "Back & Forth" is back!]
Date: Sat, 14 Sep 2024 01:56:20 -0700
Organization: A noiseless patient Spider
Lines: 9
Message-ID: <87cyl6396z.fsf@nightsong.com>
References: <nnd$61e0ad9a$48ed61c2@b4d945e456041481> <vasqjd$icjm$1@dont-email.me> <66d26c4b$1@news.ausics.net> <vaubf7$tbke$1@dont-email.me> <nnd$04cff141$0193ba04@301336b8dd8ed69a> <vbfqnd$v4c4$1@dont-email.me> <nnd$26b4d59b$27bdb181@ce638e508b04426e> <87bk0vbvgk.fsf@nightsong.com> <66e0fa58$1@news.ausics.net> <66e11d64$1@news.ausics.net> <877cbh4b6z.fsf@nightsong.com> <66e2a497$1@news.ausics.net> <2024Sep12.121903@mips.complang.tuwien.ac.at> <66e37b37$1@news.ausics.net> <05fd5a0056972ac60f43598f23a170ad@www.novabbs.com> <66e40a42$1@news.ausics.net> <87o74r3kjo.fsf@nightsong.com> <66e4564c$1@news.ausics.net>
MIME-Version: 1.0
Content-Type: text/plain
Injection-Date: Sat, 14 Sep 2024 10:56:20 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="0315275eb18b2549130ca2e89cc80271"; logging-data="1467421"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/bTyY/oOs9TX8s/mzS+M6r"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
Cancel-Lock: sha1:45e2qM+0jkEUE/dxpqoa6nvxU1o= sha1:QfxU1/isK6qG3Bg4g31XCO5gPTk=
Xref: csiph.com comp.lang.forth:132161

dxf <dxforth@gmail.com> writes:
> You have the source to my app.  Perhaps you can nominate where locals
> could have been used to better effect.

  : EMITS ( n char -- )  swap 0 ?do dup emit loop drop ;

could be written:

  : EMITS {: n char -- :} n 0 ?do char emit loop ;