steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/definitions/definitions.factor
View File

@ -47,7 +47,6 @@ M: object redefined* drop ;
GENERIC: update-methods ( class -- ) GENERIC: update-methods ( class -- )
SYMBOL: changed-words SYMBOL: changed-words
! SYMBOL: changed-classes
SYMBOL: old-definitions SYMBOL: old-definitions
SYMBOL: new-definitions SYMBOL: new-definitions
@ -94,19 +93,11 @@ TUPLE: no-compilation-unit word ;
[ no-compilation-unit ] unless* [ no-compilation-unit ] unless*
set-at ; set-at ;
! : changed-class ( class -- )
! dup changed-classes get
! [ no-compilation-unit ] unless*
! set-at ;
: with-compilation-unit ( quot -- ) : with-compilation-unit ( quot -- )
[ [
H{ } clone changed-words set H{ } clone changed-words set
! H{ } clone changed-classes set
<definitions> new-definitions set <definitions> new-definitions set
<definitions> old-definitions set <definitions> old-definitions set
[ [ changed-words get keys recompile-hook get call ]
! changed-classes get keys [ update-methods ] each [ ] cleanup
changed-words get keys recompile-hook get call
] [ ] cleanup
] with-scope ; inline ] with-scope ; inline