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

New changer effect

db4
Slava Pestov 2008-02-26 17:33:57 -06:00
parent 3bf3c3ee5a
commit 6fc74fd356
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/new-slots/new-slots.factor
View File

@ -34,7 +34,7 @@ IN: new-slots
[ \ over , swap writer-word , ] [ ] make define-inline [ \ over , swap writer-word , ] [ ] make define-inline
] [ 2drop ] if ; ] [ 2drop ] if ;
: changer-effect T{ effect f { "object" "quot" } } ; inline : changer-effect T{ effect f { "object" "quot" } { "object" } } ; inline
: changer-word ( name -- word ) : changer-word ( name -- word )
"change-" swap append changer-effect create-accessor ; "change-" swap append changer-effect create-accessor ;
@ -44,9 +44,9 @@ IN: new-slots
[ [
[ over >r >r ] % [ over >r >r ] %
over reader-word , over reader-word ,
[ r> call r> ] % [ r> call r> swap ] %
swap writer-word , swap setter-word ,
] [ ] make define ] [ ] make define-inline
] [ 2drop ] if ; ] [ 2drop ] if ;
: define-new-slot ( class slot name -- ) : define-new-slot ( class slot name -- )