"Albert van der Horst" <albert@[EMAIL PROTECTED]
> a écrit dans le message
de news: jzzemy.9t@[EMAIL PROTECTED]
> In article <481380e0$0$869$ba4acef3@[EMAIL PROTECTED]
>, <Montesquiou>
wrote:
>>Bonjour to all,
>>
>>In the archive of the group, I found the word "?PAIRS"
>>as in
>>
>>: ENDCASE 4 ?PAIRS COMPILE DROP
>> BEGIN SP@[EMAIL PROTECTED]
CSP @[EMAIL PROTECTED]
= 0=
>> WHILE 2 [COMPILE ENDIF REPEAT
>> CSP ! ; IMMEDIATE
>>
>>According the FAQ, the ?PAIRS word was FIG-Forth's way of implementing
a
>>small amount of syntax checking.
>>
>>Is "Number ?PAIRS" similar to ... over <> if (error message) then ...;
>
> I'll have a look...
> cvs update -r1.1 ci86.gnr
>
> Almost (leave out the OVER).
> \ Give an error if A and B don't match.
> : ?PAIRS <> 13 ?ERROR ;
>
> As in
> lina -e
> SEE ?PAIRS
>
> Actually they abused - for <> those days.
>
> :-)
>
>>
>>Thanks for the help.
>
> Groetjes Albert
>
The trouble came with the word PAIRS in english and PAIRS (even) in french
while PAIRS is PAIRES in french
?PAIR to check if both number were EVEN didn't make sense to me.
It is why I suspected the word to check equality (BTW, why not ?= ).
OK for the OVER since we don't need the first number anymore.
Merci
