comparison clojure/com/aurellem/gb_driver.clj @ 141:d125a294f9d8

added save states, since many functions now depend on them.
author Robert McIntyre <rlm@mit.edu>
date Mon, 19 Mar 2012 19:45:32 -0500
parents 718abf3bec8a
children b12d2408fd9b
comparison
equal deleted inserted replaced
140:aa5b5927e5fe 141:d125a294f9d8
8 (defrecord SaveState [data]) 8 (defrecord SaveState [data])
9 9
10 (def user-home (File. (System/getProperty "user.home"))) 10 (def user-home (File. (System/getProperty "user.home")))
11 11
12 (def ^:dynamic *save-state-cache* 12 (def ^:dynamic *save-state-cache*
13 (File. user-home "proj/pokemon-escape/save-states/")) 13 (File. user-home "proj/vba-clojure/save-states/"))
14 14
15 (def current-state (atom nil)) 15 (def current-state (atom nil))
16 16
17 (defn state-cache-file [name] 17 (defn state-cache-file [name]
18 (File. *save-state-cache* (str name ".sav"))) 18 (File. *save-state-cache* (str name ".sav")))