set-date ( timestamp year month day -- timestamp )

Vocabulary

calendar

Inputs

timestamp	an object
year	an object
month	an object
day	an object

Outputs

timestamp

an object

Definition

USING: accessors kernel ;

IN: calendar

: set-date ( timestamp year month day -- timestamp )
    [ >>year ] [ >>month ] [ >>day ] tri* ;