From b40c064fc638e6ec5219eabf93545407450d86f2 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 5 Jan 2008 22:06:51 -0400 Subject: [PATCH] Remove some dead code --- core/definitions/definitions.factor | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/core/definitions/definitions.factor b/core/definitions/definitions.factor index 694ee0c6f6..5d8e1262be 100755 --- a/core/definitions/definitions.factor +++ b/core/definitions/definitions.factor @@ -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 new-definitions set 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