1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sun Sep 02 09:33:40 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sun Sep 02 10:34:14 2012 -0500
     1.3 @@ -150,7 +150,7 @@
     1.4    (map second (filter (comp (partial = 0) first)
     1.5                        (partition 2 (pc-item-writer-program)))))
     1.6  
     1.7 -(defn bootstrap-corrupt-save
     1.8 +(defn-memo bootstrap-corrupt-save
     1.9    ([] (bootstrap-corrupt-save (to-room-pc)))
    1.10    ([script]
    1.11     (->> script
    1.12 @@ -198,7 +198,7 @@
    1.13  ;;2 -- 254
    1.14  ;;3 -- 255
    1.15  
    1.16 -(defn activate-home-pc
    1.17 +(defn-memo activate-home-pc
    1.18    [script]
    1.19    (->> script
    1.20         (delayed-difference [] [:a]
    1.21 @@ -560,7 +560,7 @@
    1.22            (deposit-held-item-named :TM09          55)
    1.23            (deposit-held-item-named 0x00           55))))
    1.24  
    1.25 -(defn hacking-2
    1.26 +(defn-memo hacking-2
    1.27    ([] (hacking-2 (hacking-1)))
    1.28    ([script]
    1.29       (->> script
    1.30 @@ -809,7 +809,7 @@
    1.31          (pc-item-writer-program)))])
    1.32  
    1.33  
    1.34 -(defn launch-main-bootstrap-program
    1.35 +(defn-memo launch-main-bootstrap-program
    1.36    ([] (launch-main-bootstrap-program
    1.37         ;;(control-checkpoint)
    1.38         (launch-bootstrap-program)