diff clojure/com/aurellem/gb/gb_driver.clj @ 316:d263df762c59

greatly speed up scroll-text by using binary-search.
author Robert McIntyre <rlm@mit.edu>
date Mon, 02 Apr 2012 21:20:54 -0500
parents d5dddf33543c
children 8484e6f6db2c
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/gb_driver.clj	Mon Apr 02 20:30:28 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/gb_driver.clj	Mon Apr 02 21:20:54 2012 -0500
     1.3 @@ -142,7 +142,7 @@
     1.4    ([]
     1.5      (continue! @current-state)))
     1.6  
     1.7 -(defn run-moves [state moves]
     1.8 +(defn run-moves [moves state]
     1.9    (set-state! state)
    1.10    (dorun (map #(Gb/step (button-mask %))
    1.11                moves))