word-size<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: word-size<< ( value object -- )


Methods
USING: accessors checksums.sha.private kernel math slots.private
;

M: sha1-state word-size<<
[ integer>fixnum-strict ] dip 11 set-slot ; inline


USING: accessors checksums.sha.private kernel math slots.private
;

M: sha2-state word-size<<
[ integer>fixnum-strict ] dip 10 set-slot ; inline