sequence>synchsafe ( seq -- n )

Vocabulary

id3.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: id3.private

: sequence>synchsafe ( seq -- n )
    0 [ [ 7 shift ] dip bitor ] reduce ;