boa>object ( class slots -- tuple )

Vocabulary

classes.tuple.parser

Inputs

class	an object
slots	an object

Outputs

tuple

an object

Definition

IN: classes.tuple.parser

GENERIC#: boa>object 1 ( class slots -- tuple )

Methods

USING: classes.struct classes.struct.private
classes.tuple.parser combinators kernel sequences ;

M: struct-class boa>object
    swap pad-struct-slots [ <struct> ] [ struct-slots ] bi [
        [ (writer-quot) ( value struct -- ) call-effect ] with
        2each
    ] keepd ;


USING: classes.tuple classes.tuple.parser kernel ;

M: tuple-class boa>object swap slots>tuple ;