Redefining a symbol does not trigger a recompile

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 04ccc913b90498ebf279cdaf38c2e0db63e9147c..a2a5a332ef07933f1e9068ef0f57aecef81c1d3a 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -6,7 +6,6 @@
 ]
 - prettier printing of hashtable literals, alists, cond, ...
 - the editor should fill up the interior of the scroller completely
-- hide empty command groups in $commands
 - ui quick start doc
 - x11: scroll up/down wiggles caret
 - slider needs to be modelized
@@ -103,7 +102,6 @@
 
 + misc:
 
-- symbol redef is an xref false positive
 - signal 4 on datastack underflow on mac intel??
 - fix alien-callback/SEH bug on win32
 - minor GC takes too long now, we should card mark code heap

diff --git a/library/words.factor b/library/words.factor
index 470db22e1dc7e6a0e4ec59ce27ed84e0cbca4e89..943c861fb5dbbccef619dbf087f344ce748ccdc2 100644 (file)
--- a/library/words.factor
+++ b/library/words.factor
@@ -105,7 +105,8 @@ SYMBOL: crossref
     dup update-xt
     xref-word ;
 
-: define-symbol ( word -- ) dup 2 define ;
+: define-symbol ( word -- )
+    dup symbol? [ drop ] [ dup 2 define ] if ;
 
 : intern-symbol ( word -- )
     dup undefined? [ define-symbol ] [ drop ] if ;