comparison clojure/com/aurellem/gb/gb_driver.clj @ 326:8484e6f6db2c

saving progress before trip to Liberal.
author Robert McIntyre <rlm@mit.edu>
date Wed, 04 Apr 2012 14:55:43 -0500
parents d263df762c59
children 09b3bc0b71b5
comparison
equal deleted inserted replaced
325:a5cdb2f76307 326:8484e6f6db2c
140 ([state] 140 ([state]
141 (play state Integer/MAX_VALUE)) 141 (play state Integer/MAX_VALUE))
142 ([] 142 ([]
143 (continue! @current-state))) 143 (continue! @current-state)))
144 144
145 (defn run-moves [moves state] 145 (defn run-moves [state moves]
146 (set-state! state) 146 (set-state! state)
147 (dorun (map #(Gb/step (button-mask %)) 147 (dorun (map #(Gb/step (button-mask %))
148 moves)) 148 moves))
149 (update-state)) 149 (update-state))
150 150