diff clojure/com/aurellem/gb_driver.clj @ 79:7ab48d728ee4

more stuff.
author Robert McIntyre <rlm@mit.edu>
date Thu, 08 Mar 2012 21:55:40 -0600
parents 9ba461a5c60f
children db8e0a563c8e
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb_driver.clj	Thu Mar 08 21:50:46 2012 -0600
     1.2 +++ b/clojure/com/aurellem/gb_driver.clj	Thu Mar 08 21:55:40 2012 -0600
     1.3 @@ -6,7 +6,7 @@
     1.4  
     1.5  (Gb/loadVBA)
     1.6  
     1.7 -(def ^:dynamic *max-history* 10)
     1.8 +(def ^:dynamic *max-history* 1e4)
     1.9  
    1.10  (def ^:dynamic *backup-saves-to-disk* true)
    1.11  
    1.12 @@ -160,4 +160,7 @@
    1.13    ([] (play Integer/MAX_VALUE))
    1.14    ([n] (dorun (dotimes [_ n] (step)))))
    1.15  
    1.16 +(defmacro without-saves [& forms]
    1.17 +  `(binding [*save-history* false]
    1.18 +     ~@forms))
    1.19