footer<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: footer<< ( value object -- )


Methods
USING: accessors kernel slots slots.private tools.image ;

M: image footer<<
[
dup
[ image-footer? ]
[ t ]
if*
[ maybe{ image-footer } bad-slot-value ]
unless
] dip 2 set-slot ; inline