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