Create noname colon words from example

    \ by ;-hook before this stuff here is processed).

    \ by ;-hook before this stuff here is processed).

    ['] noop defstart ;

    ['] noop defstart ;

: (:noname) ( -- colon-sys )

    \ common factor of : and :noname

    docol, colon-sys ] :-hook ( unlocal-state off ) ;

: : ( "name" -- colon-sys ) \ core	colon

: : ( "name" -- colon-sys ) \ core	colon

    free-old-local-names

    free-old-local-names

    ['] on create-from colon-sys ] :-hook ;

    ['] on create-from colon-sys ] :-hook ;

:noname ; aconstant dummy-noname

: :noname ( -- xt colon-sys ) \ core-ext	colon-no-name

: :noname ( -- xt colon-sys ) \ core-ext	colon-no-name

    noname, here (:noname) ;

    dummy-noname noname-from

    latestxt colon-sys ] :-hook ;

: ; ( compilation colon-sys -- ; run-time nest-sys ) \ core	semicolon

: ; ( compilation colon-sys -- ; run-time nest-sys ) \ core	semicolon

    ;-hook [compile] exit ?colon-sys

    ;-hook [compile] exit ?colon-sys