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