updated .VT

debugs.fs

@@ -307,11 +307,21 @@ Variable rec'
 
 \ print name vtable
 
+: .name? ( xt -- )
+    \ prints name of xt if named, otherwise prints xt as hex number
+    dup >name if
+	.name
+    else
+	hex.
+    then ;
+
 : .vt ( nt -- )
     >namevt @ cr
-    ." opt:    " dup >vtcompile, @ .name cr
-    ." to:     " dup >vtto       @ .name cr
-    ." >int:   " dup >vt>int     @ .name cr
-    ." >comp:  " dup >vt>comp    @ .name cr
-    ." defer@: " dup >vtdefer@   @ .name cr
-    ." extra:  "     >vtextra    @ hex. ;
+    ." opt:    " dup >vtcompile, @ .name? cr
+    ." to:     " dup >vtto       @ .name? cr
+    ." >int:   " dup >vt>int     @ .name? cr
+    ." >comp:  " dup >vt>comp    @ .name? cr
+    ." defer@: " dup >vtdefer@   @ .name? cr
+    ." extra:  " dup >vtextra    @ .name? cr
+    ." >string " dup >vt>string  @ .name? cr
+    ." >link   "     >vt>link    @ .name? ;

kernel/comp.fs

@@ -190,8 +190,8 @@ defer header-extra ' noop is header-extra
     vt, header-name,   >namevt 2@ , cfa,
     last @ 0= IF  noname-vt  THEN  header-extra ;
 : noname-from ( xt -- ) \ gforth
-    \G create a headerless using the example @i{xt}'s vt.
-    \G @i{xt} must be headerless.
+    \G create a nameless word using the example @i{xt}'s vt.
+    \G @i{xt} must be nameless.
     vt, 0name,  >namevt 2@ , cfa, ;
 
 : input-stream-header ( "name" -- )