* ; ( -- ) compiles ((;)) which does EXIT the current colon-definition. It does then end compile-mode and returns to execute-mode. See : and :NONAME
;
( -- )
((;))
EXIT
:
:NONAME
FORTH/ANS core (dpANS.6.1.0460) compiling primitive