fix native image generation if no word was defined this session

cvs
Slava Pestov 2004-08-04 00:37:42 +00:00
parent 076dd4fa43
commit 1da7004915
1 changed files with 4 additions and 1 deletions

View File

@ -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 ;