Q-pairs:tools_misc — ordinary primitive
FORTH
?PAIRS ( a b -- )();p4:"Q-pairs";
?PAIRS ( a b -- )(
)
if compiling, check that the two magics on the CS-STACK are identical, otherwise throw <br> used in control-words