fix native image generation if no word was defined this session
parent
076dd4fa43
commit
1da7004915
|
@ -56,7 +56,10 @@ USE: unparser
|
|||
drop f
|
||||
] 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" off "pos" off ;
|
||||
|
|
Loading…
Reference in New Issue