new accesors

db4
Doug Coleman 2008-08-30 21:58:40 -05:00
parent 843eb15522
commit 5c19e28fb9
1 changed files with 1 additions and 1 deletions

View File

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