cross-doc-entry&co. change input lexeme, restore after header creation

parent 3882eec4
Pipeline #796 failed with stage
in 4 minutes and 59 seconds
......@@ -2098,7 +2098,6 @@ Defer resolve-warning
(gexecute) ;
: addr, ( ghost -- )
T here cell- H gxt-location drop
dup 0= IF T a, H EXIT THEN
dup forward? IF 1 refered 0 T a, H ELSE >link @ T a, H THEN ;
......@@ -2427,9 +2426,11 @@ Defer vt, \ forward rference only
dup >ghostname there symentry
dup Last-Header-Ghost ! dup to lastghost
dup >magic ^imm ! \ a pointer for immediate
input-lexeme 2@ 2>r
[IFDEF] alias-mask alias-mask flag! [THEN]
cross-doc-entry cross-tag-entry
setup-execution-semantics
2r> input-lexeme 2!
;
\ this is the resolver information from ":"
......
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