Cleaning up Scheme code integration with different dev/prod modes.

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