?CSP ?CR ?DO
?CSP
* ?CSP ( -- )

check that SP == CSP otherwise THROW

used in control-words

tools_misc ordinary primitive