From cca76e0f6e4b76339d17b1a7f415e4249684fa2f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 6 Oct 2011 13:18:50 -0700 Subject: [PATCH] Rename forget-struct-slot-accessors -> forget-slot-accessors --- basis/classes/struct/struct.factor | 2 +- core/classes/tuple/tuple.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 49b338f404..ec29e0b262 100644 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -323,7 +323,7 @@ ERROR: invalid-struct-slot token ; M: struct-class reset-class { - [ dup "c-type" word-prop fields>> forget-struct-slot-accessors ] + [ dup "c-type" word-prop fields>> forget-slot-accessors ] [ [ forget-struct-slot-values-method ] [ forget-clone-method ] bi diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index 2be18763ef..207759ee18 100644 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -315,7 +315,7 @@ M: error-class reset-class : define-boa-word ( word class -- ) [ [ boa ] curry ] [ boa-effect ] bi define-inline ; -: forget-struct-slot-accessors ( class slots -- ) +: forget-slot-accessors ( class slots -- ) [ name>> [ reader-word ?lookup-method forget ] @@ -324,7 +324,7 @@ M: error-class reset-class M: tuple-class reset-class [ - dup "slots" word-prop forget-struct-slot-accessors + dup "slots" word-prop forget-slot-accessors ] [ [ call-next-method ] [ { "layout" "slots" "boa-check" "prototype" "final" } reset-props ]