Remove some dead code

db4
Slava Pestov 2008-01-05 22:06:51 -04:00
parent 5f5270ae90
commit b40c064fc6
1 changed files with 2 additions and 11 deletions

View File

@ -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