metadata-number ( metadata key -- n )

Vocabulary

yenc.private

Inputs

metadata	an object
key	an object

Outputs

n

an object

Definition

USING: assocs kernel math math.parser yenc ;

IN: yenc.private

:: metadata-number ( metadata key -- n )
    key metadata at dup [ string>number ] when dup integer?
    [ "Invalid numeric metadata" invalid-yenc ] unless ;