comparison clojure/com/aurellem/gb_driver.clj @ 107:ad96e9464d6a

working on the start of the bootstrap program; expanded register array to 29 elements
author Robert McIntyre <rlm@mit.edu>
date Thu, 15 Mar 2012 03:24:05 -0500
parents 3a60bb14a64a
children bcb5c41626b4
comparison
equal deleted inserted replaced
106:3a60bb14a64a 107:ad96e9464d6a
114 (step state [:listen])) 114 (step state [:listen]))
115 ([] (step (if @current-state @current-state (root))))) 115 ([] (step (if @current-state @current-state (root)))))
116 116
117 (defn tick 117 (defn tick
118 ([] (tick @current-state)) 118 ([] (tick @current-state))
119 ([state] 119 ([^SaveState state]
120 (set-state! state) 120 (set-state! state)
121 (Gb/tick) 121 (Gb/tick)
122 (update-state))) 122 (update-state)))
123 123
124 (defn play 124 (defn play