Redefining a symbol does not trigger a recompile

slava 2006-09-29 21:07:24 +00:00
parent cf25f13c95
commit 6438c25ec4
2 changed files with 2 additions and 3 deletions

View File

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

View File

@ -105,7 +105,8 @@ SYMBOL: crossref
dup update-xt dup update-xt
xref-word ; xref-word ;
: define-symbol ( word -- ) dup 2 define ; : define-symbol ( word -- )
dup symbol? [ drop ] [ dup 2 define ] if ;
: intern-symbol ( word -- ) : intern-symbol ( word -- )
dup undefined? [ define-symbol ] [ drop ] if ; dup undefined? [ define-symbol ] [ drop ] if ;