Remove some dead code
parent
5f5270ae90
commit
b40c064fc6
|
@ -47,7 +47,6 @@ M: object redefined* drop ;
|
|||
GENERIC: update-methods ( class -- )
|
||||
|
||||
SYMBOL: changed-words
|
||||
! SYMBOL: changed-classes
|
||||
SYMBOL: old-definitions
|
||||
SYMBOL: new-definitions
|
||||
|
||||
|
@ -94,19 +93,11 @@ TUPLE: no-compilation-unit word ;
|
|||
[ no-compilation-unit ] unless*
|
||||
set-at ;
|
||||
|
||||
! : changed-class ( class -- )
|
||||
! dup changed-classes get
|
||||
! [ no-compilation-unit ] unless*
|
||||
! set-at ;
|
||||
|
||||
: with-compilation-unit ( quot -- )
|
||||
[
|
||||
H{ } clone changed-words set
|
||||
! H{ } clone changed-classes set
|
||||
<definitions> new-definitions set
|
||||
<definitions> old-definitions set
|
||||
[
|
||||
! changed-classes get keys [ update-methods ] each
|
||||
changed-words get keys recompile-hook get call
|
||||
] [ ] cleanup
|
||||
[ changed-words get keys recompile-hook get call ]
|
||||
[ ] cleanup
|
||||
] with-scope ; inline
|
||||
|
|
Loading…
Reference in New Issue