new accesors
parent
843eb15522
commit
5c19e28fb9
|
@ -208,7 +208,7 @@ DEFER: _
|
|||
|
||||
: slot-readers ( class -- quot )
|
||||
all-slots rest ! tail gets rid of delegate
|
||||
[ slot-spec-reader 1quotation [ keep ] curry ] map concat
|
||||
[ reader>> 1quotation [ keep ] curry ] map concat
|
||||
[ ] like [ drop ] compose ;
|
||||
|
||||
: ?wrapped ( object -- wrapped )
|
||||
|
|
Loading…
Reference in New Issue