messed up inauguration-day
parent
a2fe85b34a
commit
a9eb2de22d
|
@ -16,7 +16,7 @@ SYNTAX: us-federal
|
||||||
january 3 monday-of-month ; us-federal
|
january 3 monday-of-month ; us-federal
|
||||||
|
|
||||||
: inauguration-day ( timestamp/n -- timestamp )
|
: inauguration-day ( timestamp/n -- timestamp )
|
||||||
year dup 4 mod + january 20 >>day ; us-federal
|
year dup neg 4 rem + january 20 >>day ; us-federal
|
||||||
|
|
||||||
: washington's-birthday ( timestamp/n -- timestamp )
|
: washington's-birthday ( timestamp/n -- timestamp )
|
||||||
february 3 monday-of-month ; us-federal
|
february 3 monday-of-month ; us-federal
|
||||||
|
|
Loading…
Reference in New Issue