Score fake booking as 0

This allows the prevention of bookings fulfilling certain conditions from being
booked, if they have a negative score. This can be useful if, for instance, I
want to prevent any bookings on a given day.

-inf always compared as less than another proposed score, meaning that it would
be possible for a negative-scoring new booking to be booked as long as there
was nothing better available. This commit means that a negatively scored
booking will not be booked, even if it is the only option.

1 files changed, 1 insertions, 1 deletions

diff --git a/util.scm b/util.scm
index 6ad4333..ca58b0f 100644
--- a/util.scm
+++ b/util.scm
@@ -64,7 +64,7 @@
 (define fake-score
   (let* ((fake-date (make-date 0 0 0 0 0 0 0 0))
          (fake-booking (make-booking 'fake-venue 'fake-activity fake-date fake-date)))
-    `(,fake-booking ,(-(inf)))))
+    `(,fake-booking 0)))
 
 ;;; Dates