Rename forget-struct-slot-accessors -> forget-slot-accessors
parent
2402345794
commit
cca76e0f6e
|
@ -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
|
||||
|
|
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue