From 5e8be6e4169021062ec12ad48b54fee5633d6e1e Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Fri, 7 Feb 2020 10:22:10 -0800
Subject: [PATCH] Cleaning up Scheme code integration with different dev/prod
 modes.

---
 src/server/farm.scm | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/src/server/farm.scm b/src/server/farm.scm
index cf7c57d..c51a0b3 100644
--- a/src/server/farm.scm
+++ b/src/server/farm.scm
@@ -22,7 +22,11 @@
      srfi-18 medea numbers spiffy spiffy-cookies
      intarweb pll sxml-transforms websockets miscmacros)
 
-(include "game")
+(cond-expand
+  (geiser
+   (include "../../assets/game/acf/game"))
+  (else
+   (include "game")))
 
 (root-path "./")
 
@@ -1661,10 +1665,15 @@
                   ((eq? b 'goto) #f)
                   (else #f))))))
 
-(run-awful)
-
-;; (thread-join! *awful-thread*)
-(repl)
+(cond-expand
+  (geiser
+   '())
+  (csi
+   (run-awful)
+   (repl))
+  (compiling ;; production
+   (run-awful)
+   (thread-join! *server-thread*)))
 
 ;; TODO
 ;; audit was called but didn't cause anything on year end