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