eval-timestamp ( seq -- timestamp )

Vocabulary

wikipedia.private

Inputs

seq

an object

Outputs

timestamp

an object

Definition

USING: calendar eval namespaces parser sequences ;

IN: wikipedia.private

: eval-timestamp ( seq -- timestamp )
    [ today ] [
        " " join t auto-use?
        [ ( -- timestamp ) eval ] with-variable
    ] if-empty ;