Add sun? helpermain

1 files changed, 3 insertions, 0 deletions

diff --git a/util.scm b/util.scm
index ca58b0f..c3e703f 100644
--- a/util.scm
+++ b/util.scm
@@ -157,3 +157,6 @@
 
 (define (sat? booking)
   (eq? ((compose date->day-name booking-start) booking) 'sat))
+
+(define (sun? booking)
+  (eq? ((compose date->day-name booking-start) booking) 'sun))