Skip to content

gforth
gforth
Verified Commit 7f66dc72 authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Make sure the noname in cross.fs is really set up as noname

parent 8c03aa50
Pipeline #808 failed with stage
    in 5 minutes and 34 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    cross.fs
    View file @ 7f66dc72
    ......@@ -2795,7 +2795,7 @@ ghost :-dummy Constant :-ghost
    docol, ]comp colon-start depth ;Resolve off T ] H r> ;
    : :noname ( -- xt colon-sys )
    switchrom vt, vt-noname
    switchrom vt,
    [ X has? f83headerstring 0= ] [IF]
    T 0 cell+ cfalign# here cell+ H
    [IFDEF] alias-mask t>flag >r alias-mask T r@ c@ xor r> c! H
    ......@@ -2807,7 +2807,7 @@ ghost :-dummy Constant :-ghost
    there
    \ define a nameless ghost
    here ghostheader dup last-header-ghost ! dup to lastghost
    (:) ;
    (:) vt-noname ;
    Cond: EXIT ( -- ) compile ;S ;Cond
    ......
    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