Commit f0832f59 authored by Bernd Paysan's avatar Bernd Paysan

Fix build problem

parent e78db186
Pipeline #847 passed with stage
in 9 minutes and 49 seconds
......@@ -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
......@@ -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
......@@ -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.
......
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment