Tangla point-free

gistfile1.clj

(defn update-game!
  [system-atom]
  ;; NB: write-only code                                                                                                                                                        
  (let [game-env ((comp (partial apply game-env/update-player)
                    (juxt identity
                      (comp move-player
                        (partial apply player/update-cur-speed)
                        (juxt identity
                          (comp accelerate player/get-cur-speed))
                        game-env/get-player))
                    system/get-game-env)
                   @system-atom)]
    (if (exit-reached? game-env)
        (let [new-system (system/make-system)]
          (dom/reset-canvas!
           (system/get-game-env new-system)
           (system/get-renderer new-system))
          (swap! system-atom (constantly new-system)))
        (swap! system-atom system/update-game-env game-env))))