diff clojure/com/aurellem/run/title.clj @ 335:abd1ca8a25cc

fixed major bug with first-difference which was causing de-sync.
author Robert McIntyre <rlm@mit.edu>
date Sat, 07 Apr 2012 05:42:26 -0500
parents a452deec2882
children
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/title.clj	Fri Apr 06 14:54:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/title.clj	Sat Apr 07 05:42:26 2012 -0500
     1.3 @@ -13,7 +13,7 @@
     1.4            (first-difference [] [:a] AF)
     1.5            (first-difference [] [:start] AF))))
     1.6  
     1.7 -(defn oak
     1.8 +(defn-memo oak
     1.9    ([] (oak (title)))
    1.10    ([script]
    1.11       (->> script
    1.12 @@ -77,8 +77,8 @@
    1.13    [(read-moves "title-checkpoint")
    1.14     (read-state "title-checkpoint")])
    1.15  
    1.16 -(defn test-intro []
    1.17 -  (play-vbm (moves-filename "title-checkpoint")))
    1.18 +;;(defn test-intro []
    1.19 +;;  (play-vbm (moves-filename "title-checkpoint")))
    1.20  
    1.21  ;; TODO might be able to glue these together more elegantly with monads
    1.22