slot-readers ( class -- quot )


Vocabulary
inverse

Inputs
classan object


Outputs
quotan object


Definition
USING: accessors classes.tuple combinators kernel quotations
sequences slots ;

IN: inverse

: slot-readers ( class -- quot )
all-slots [ name>> reader-word 1quotation ] map
[ cleave ] curry ;