* ?PAIRS ( a b -- ) if compiling, check that the two magics on the CS-STACK are identical, otherwise throw used in control-words
?PAIRS
( a b -- )
CS-STACK
tools_misc ordinary primitive