seq>synchsafe ( seq -- n )

Vocabulary
id3.private

Definition

USING: kernel math sequences ;

IN: id3.private

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