From 1da70049156ebdb693be4a6a71dcfd06cbfebfcf Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 4 Aug 2004 00:37:42 +0000
Subject: [PATCH] fix native image generation if no word was defined this
 session

---
 library/platform/native/parser.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/library/platform/native/parser.factor b/library/platform/native/parser.factor
index a659be0a57..ecd36f596f 100644
--- a/library/platform/native/parser.factor
+++ b/library/platform/native/parser.factor
@@ -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 ;