Saving app at end-of-turn.

src/server/farm.scm

@@ -1118,6 +1118,13 @@
          (safe-set! (player-harvesting player) #f)
          (if (>= (player-cash player) 0)
              (begin (advance-turn game player)
+                    (handle-exceptions
+                        exn
+                      (begin (print-call-chain)
+                             (print exn)
+                             (print-error-message exn)
+                             (print "error saving app"))
+                      (save-app))
                     (if (eq? (game-state game) 'finished)
                         (do-end-of-game game)
                         (message-players! game player '() type: "update"))