Remove dummy name and link from :noname

: :noname ( -- xt colon-sys )

    switchrom vt, vt-noname

    [ X has? f83headerstring 0= ] [IF]

	T 0 cell+ cfalign# 0 , 0 , here cell+ H

	T 0 cell+ cfalign# here cell+ H

	[IFDEF] alias-mask t>flag >r alias-mask T r@ c@ xor r> c! H

	[ELSE] drop [THEN]

	:-ghost >do:ghost @ >exec2 @ execute

  IF  there resolve  THEN ;

Cond: DOES>

    T here cfaligned H [ T has? primcentric H [IF] ] #8 [ [ELSE] ] #7 [ [THEN] ] T cells

    T here cfaligned H [ T has? primcentric H [IF] ] #6 [ [ELSE] ] #7 [ [THEN] ] T cells

    H + alit, compile set-does> compile ;

    Last-Header-Ghost @ >do:ghost @ >r

T :noname H

: DOES>

    ['] does-resolved created >comp !

    T here cfaligned #12 cells H \ includes noname header+vtable

    T here cfaligned #10 cells H \ includes noname header+vtable

    + !newdoes

    T :noname H 2drop

    instant-interpret-does>-hook

    ['] nextname-header IS (header) ;

: noname, ( -- )

    0 last ! vt,  here dup cfaligned >align 0 ( alias-mask ) ,

    0 , \ link field

    0 last ! vt,  here dup cfaligned >align

    here xt-location drop \ add location stamps on vt+cf

    vttemplate , \ vtable field

    noname-vt ;