Redefining a symbol does not trigger a recompile
parent
cf25f13c95
commit
6438c25ec4
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue