Mercurial > vba-clojure
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"))) |