1 files changed, 5 insertions, 5 deletions
diff --git a/config.scm b/config.scm
index 46d0bf2..f07403b 100644
--- a/config.scm
+++ b/config.scm
@@ -12,12 +12,12 @@
 (define default-user matthew)
 
 (define (default-scorer booking)
-  (let ((score (lambda (cond amount) (if cond amount 0))))
+  (let ((score (lambda (pred amount) (if (pred booking) amount 0))))
     (+
-     (score (rob-friendly? booking) 4)
-     (score (badminton-60min? booking) 2)
-     (score (sat? booking) 1)
-     (score (unreasonable-time? booking) -8)
+     (score rob-friendly? 4)
+     (score badminton-60min? 2)
+     (score sat? 1)
+     (score unreasonable-time? -8)
      )))
 
 (define (rob-friendly? booking)