comparison clojure/com/aurellem/gb/saves.clj @ 320:9637a0f52e7b

located item-list related addresses.
author Robert McIntyre <rlm@mit.edu>
date Tue, 03 Apr 2012 23:17:33 -0500
parents 92c47a9cdaea
children 3b3cd62b6106
comparison
equal deleted inserted replaced
319:92c47a9cdaea 320:9637a0f52e7b
26 (defn grass-edge [] 26 (defn grass-edge []
27 (read-state "grass' edge")) 27 (read-state "grass' edge"))
28 28
29 (defn end-oak-conv [] 29 (defn end-oak-conv []
30 (read-state "end-oak-conversation")) 30 (read-state "end-oak-conversation"))
31 31
32
33 (defmacro gen-save [save-name]
34 `(defn ~save-name
35 ~(str "load " save-name " from disk.")
36 []
37 (read-state ~(str save-name))))
38
39 (gen-save cursor-item-1)
40 (gen-save cursor-item-2)
41 (gen-save cursor-item-3)
42 (gen-save cursor-item-4)
43 (gen-save cursor-item-5)
44 (gen-save cursor-item-6)