From 8522d9cbe81dd982bab1bdebec89b5b4e1c66ec3 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Tue, 25 Jan 2022 20:44:27 -0500
Subject: Removed unused procedure

---
 strategies/alpha.scm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/strategies/alpha.scm b/strategies/alpha.scm
index 91aa1a8..9117e55 100644
--- a/strategies/alpha.scm
+++ b/strategies/alpha.scm
@@ -93,11 +93,6 @@
     1
     0))
 
-(define (first-or-else l d)
-  (if (null? l)
-    d
-    (first l)))
-
 (define (available-moves-for-opponent-after-move m)
   (length (valid-moves (apply-move m) (other-player))))
 
-- 
cgit v1.2.3