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
--
--
Albert van der Horst, UTRECHT,THE NETHERLANDS
Economic growth -- like all pyramid schemes -- ultimately falters.
albert@[EMAIL PROTECTED]
&=n http://home.hccnet.nl/a.w.m.van.der.horst
|
