diff clojure/com/aurellem/run/bootstrap_0.clj @ 297:528dc923d4c5

mapping out characters-as-items to avoid corrupt items.
author Robert McIntyre <rlm@mit.edu>
date Fri, 30 Mar 2012 22:35:08 -0500
parents 659a9c84c785
children 0b3e89103dc2
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:41:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 22:35:08 2012 -0500
     1.3 @@ -763,7 +763,10 @@
     1.4       (->> script
     1.5            (multiple-times 33 deposit-one-item)
     1.6            (do-nothing 1))))
     1.7 -  
     1.8 +
     1.9 +(defn bootstrap-init []
    1.10 +  [(read-moves "bootstrap-init")
    1.11 +   (read-state "bootstrap-init")])
    1.12  
    1.13  (defn create-bootstrap-program
    1.14    ([] (create-bootstrap-program
    1.15 @@ -780,4 +783,4 @@
    1.16  
    1.17            (do-nothing 1))))
    1.18      
    1.19 -       
    1.20 \ No newline at end of file
    1.21 +