Verified Commit f0832f59 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Fix build problem

parent e78db186

doc/makedoc.fs

+1 −5
Original line number Diff line number Diff line
@@ -110,8 +110,4 @@ normal-dp value check-dp 
	r> >in !

    endif ;



: (doc-header) ( -- )

    defers header

    put-doc-entry ;



' (doc-header) IS header
 
' put-doc-entry IS header-extra

etags.fs

+1 −5
Original line number Diff line number Diff line
@@ -119,8 +119,4 @@ create tags-line 128 chars allot 
	latest name>string put-tags-string

    then ;



: (tags-header) ( -- )

    defers header

    put-tags-entry ;



' (tags-header) IS header
 
' put-tags-entry IS header-extra

kernel/comp.fs

+5 −4
Original line number Diff line number Diff line
@@ -178,16 +178,17 @@ defer record-name ( -- ) 
' noop is record-name

\ record next name in tags file

defer header-name,

defer header ( -- ) \ gforth

: default-header vt, header-name, vttemplate namevt, ?noname-vt ;

' default-header is header

defer header-extra ' noop is header-extra

: header ( -- ) \ gforth

    \G create a header for a word

    vt, header-name, vttemplate namevt, ?noname-vt header-extra ;



: create-from ( xt -- ) \ gforth

    \G create a word using the example @i{xt}'s vt.

    \G @i{xt} must have a name.  The resulting header

    \G is not yet revealed.

    vt, header-name,   >namevt 2@ , cfa,

    last @ 0= IF  noname-vt  THEN ;

    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.

tags.fs

+1 −5
Original line number Diff line number Diff line
@@ -114,8 +114,4 @@ create tags-line 128 chars allot 
	latest name>string put-tags-string

    then ;



: (tags-header) ( -- )

    defers header

    put-tags-entry ;



' (tags-header) IS header
 
' put-tags-entry IS header-extra