read-rfc3339-seconds ( s -- s' ch )

Vocabulary

calendar.parser

Inputs

s

an object

Outputs

s'	an object
ch	an object

Definition

USING: io kernel math math.functions math.parser sequences ;

IN: calendar.parser

: read-rfc3339-seconds ( s -- s' ch )
    "+-Z" read-until
    [ [ string>number ] [ length 10^ ] bi / + ] dip ;