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

db4
Doug Coleman 2011-10-06 13:18:50 -07:00
parent 2402345794
commit cca76e0f6e
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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 ]