messed up inauguration-day

db4
Doug Coleman 2009-11-11 17:28:53 -06:00
parent a2fe85b34a
commit a9eb2de22d
1 changed files with 1 additions and 1 deletions

View File

@ -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