Commit db5f3d01 authored by Anton Ertl's avatar Anton Ertl
Browse files

updated .VT

parent bb52bfb4

debugs.fs

+16 −6
Original line number Diff line number Diff line
@@ -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

+2 −2
Original line number Diff line number Diff line
@@ -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" -- )