Deutsch English Français Italiano |
<vcgn8c$g1rr$2@dont-email.me> View for Bookmarking (what is this?) Look up another Usenet article |
Path: ...!2.eu.feeder.erje.net!feeder.erje.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail From: Ruvim <ruvim.pinka@gmail.com> Newsgroups: comp.lang.forth Subject: Re: single-xt approach in the standard Date: Thu, 19 Sep 2024 12:26:51 +0400 Organization: A noiseless patient Spider Lines: 36 Message-ID: <vcgn8c$g1rr$2@dont-email.me> References: <vcbn5e$3etuk$1@dont-email.me> <vccka8$3l9rv$2@dont-email.me> <vcd1tp$3nsk0$1@dont-email.me> <vcdqsm$3unj9$1@dont-email.me> <433ad83fbe1f93e777130e6be090bbbd@www.novabbs.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Injection-Date: Thu, 19 Sep 2024 10:26:53 +0200 (CEST) Injection-Info: dont-email.me; posting-host="14ffa7e74b04c11b7d28dda1775e4d3a"; logging-data="526203"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19M0Yq67IzjY7FN4JBI5UfD" User-Agent: Mozilla Thunderbird Cancel-Lock: sha1:TXUwfnLM2+tx+hHGJd8V0Vxpx0c= In-Reply-To: <433ad83fbe1f93e777130e6be090bbbd@www.novabbs.com> Content-Language: en-US Bytes: 2097 On 2024-09-18 10:38, mhx wrote: > On Wed, 18 Sep 2024 6:10:29 +0000, Ruvim wrote: > [..] >> This implementation is not standard compliant, because `compile,`, which >> shall has stack effect ( xt -- ), consumes and produces some other stack >> parameters for some xts, e.g. > [..] > >> Or, in a standard program: >> >> : test-compile( >> state @ 0= -14 and throw >> bl word find if compile, else -13 throw then >> parse-name s" )" compare abort" ')' expected" >> ; immediate >> >> : foo test-compile( if ) ; >> >> \ Err# -22 ERR: Control structure mismatch. > > FORTH> see foo > Flags: ANSI > $01340E40 : foo > $01340E4A jmp IF+10 ( $012B829A ) offset NEAR > $01340E4F ; > > I'm curious what this tells you. This tells me that in iForth the word `compile,` behaves as expected in this test :) -- Ruvim