Rename forget-struct-slot-accessors -> forget-slot-accessors

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 49b338f404ce14c703db3d93e9b092b7726d93e0..ec29e0b262e2f1bbd9d4de24ab2d28e4c1b26171 100644 (file)
--- 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 2be18763efa6b840e0479b6ea5ed600b5adff999..207759ee183db4f7b27817e259a8f2c22344cb2a 100644 (file)
--- 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 ]