From 0fa8eed11f9d0a6500ace02a1da3f4c0a23a0a15 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sat, 14 Jan 2023 12:38:25 -0500
Subject: [PATCH] Correct the US Tax Day calculation, courtesy of Tavis Ormandy

---
 examples/defs.rem | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/defs.rem b/examples/defs.rem
index 2b5c251f..4db3b04f 100644
--- a/examples/defs.rem
+++ b/examples/defs.rem
@@ -157,7 +157,8 @@ REM Last Sunday in October ++2 UNTIL 1 Jan 2007 MSG Daylight Saving Time - %"DST
 REM First Sunday in November ++2 FROM 1 Jan 2007 MSG Daylight Saving Time - %"DST ends%" %b
 
 REM     Apr  1		MSG %"April Fool's%" Day
-REM Mon Tue Wed Thu Fri Sat 15 Apr MSG %"Income tax%" due
+FSET _ustax(x) (wkdaynum(x) == 1 && day(x) != 15)
+REM OMITFUNC _ustax Mon Tue Wed Thu 15 Apr AFTER MSG %"Tax Day%"
 REM     May  5		MSG %"Cinco de Mayo%"
 REM First Sat in May 	MSG %"Kentucky Derby%"
 REM Second Sun in May	MSG %"Mother's Day%"