1.1 --- a/clojure/com/aurellem/run/save_corruption.clj	Mon Mar 26 04:17:10 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/save_corruption.clj	Mon Mar 26 06:00:30 2012 -0500
     1.3 @@ -10,35 +10,37 @@
     1.4            (advance [:b] [:b :r])))
     1.5    ([] (start-walking (finish-title))))
     1.6  
     1.7 -(def walk (partial advance []))
     1.8 +
     1.9 +(def move
    1.10 +  (partial advance []))
    1.11  
    1.12  (defn-memo walk-to-stairs
    1.13    ([] (walk-to-stairs (start-walking)))
    1.14    ([script]
    1.15       (->> script
    1.16 -          (walk [:u])
    1.17 -          (walk [:u])
    1.18 -          (walk [:u])
    1.19 -          (walk [:u])
    1.20 -          (walk [:u])
    1.21 -          (walk [:r])
    1.22 -          (walk [:r])
    1.23 -          (walk [:r]))))
    1.24 +          (move [:u])
    1.25 +          (move [:u])
    1.26 +          (move [:u])
    1.27 +          (move [:u])
    1.28 +          (move [:u])
    1.29 +          (move [:r])
    1.30 +          (move [:r])
    1.31 +          (move [:r]))))
    1.32  
    1.33  (defn-memo walk-to-door
    1.34    ([] (walk-to-door (walk-to-stairs)))
    1.35    ([script]
    1.36       (->> script
    1.37 -          (walk [:d])
    1.38 -          (walk [:d])
    1.39 -          (walk [:d])
    1.40 -          (walk [:d])
    1.41 -          (walk [:d])
    1.42 -          (walk [:d])
    1.43 -          (walk [:l])
    1.44 -          (walk [:l])
    1.45 -          (walk [:l])
    1.46 -          (walk [:l]))))
    1.47 +          (move [:d])
    1.48 +          (move [:d])
    1.49 +          (move [:d])
    1.50 +          (move [:d])
    1.51 +          (move [:d])
    1.52 +          (move [:d])
    1.53 +          (move [:l])
    1.54 +          (move [:l])
    1.55 +          (move [:l])
    1.56 +          (move [:l]))))
    1.57  
    1.58  (defn-memo activate-menu
    1.59    ([] (activate-menu (walk-to-door)))