(version) ( n version -- n' )

Vocabulary

uuid.private

Inputs

n	an object
version	an object

Outputs

n'

an object

Definition

USING: kernel math ;

IN: uuid.private

: (version) ( n version -- n' )
    [
        49152 48 shift bitnot bitand 32768 48 shift bitor
        61440 64 shift bitnot bitand
    ] dip 76 shift bitor ;