steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/classes/struct/struct.factor
View File

@ -323,7 +323,7 @@ ERROR: invalid-struct-slot token ;
M: struct-class reset-class 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-struct-slot-values-method ]
[ forget-clone-method ] bi [ forget-clone-method ] bi

4
core/classes/tuple/tuple.factor
View File

@ -315,7 +315,7 @@ M: error-class reset-class
: define-boa-word ( word class -- ) : define-boa-word ( word class -- )
[ [ boa ] curry ] [ boa-effect ] bi define-inline ; [ [ boa ] curry ] [ boa-effect ] bi define-inline ;
: forget-struct-slot-accessors ( class slots -- ) : forget-slot-accessors ( class slots -- )
[ [
name>> name>>
[ reader-word ?lookup-method forget ] [ reader-word ?lookup-method forget ]
@ -324,7 +324,7 @@ M: error-class reset-class
M: tuple-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 ] [ call-next-method ]
[ { "layout" "slots" "boa-check" "prototype" "final" } reset-props ] [ { "layout" "slots" "boa-check" "prototype" "final" } reset-props ]