fix native image generation if no word was defined this session
parent
076dd4fa43
commit
1da7004915
|
@ -56,7 +56,10 @@ USE: unparser
|
||||||
drop f
|
drop f
|
||||||
] ifte ;
|
] ifte ;
|
||||||
|
|
||||||
: parsing ( -- ) t "parsing" word set-word-property ;
|
: parsing ( -- )
|
||||||
|
"cross-compiler" get [
|
||||||
|
t "parsing" word set-word-property
|
||||||
|
] unless ; parsing
|
||||||
|
|
||||||
: <parsing "line" set 0 "pos" set ;
|
: <parsing "line" set 0 "pos" set ;
|
||||||
: parsing> "line" off "pos" off ;
|
: parsing> "line" off "pos" off ;
|
||||||
|
|
Loading…
Reference in New Issue