* SPY: ( name -- ) create a header for a nesting word and go to compiling mode then. This word is usually ended with ; but the execution of the resulting colon-word can also return with EXIT this is the spy-version SPY_ON
SPY:
( name -- )
;
EXIT
SPY_ON
EXTENSIONS with_spy defining primitive