diff clojure/com/aurellem/run/bootstrap_1.clj @ 376:7c89fe478de4

modifying dylan's assembly bootstrap program so that my primitive item-writer program can write it to memory.
author Robert McIntyre <rlm@mit.edu>
date Wed, 11 Apr 2012 09:14:51 -0500
parents abcc522a3242
children 1f14c1b8af7e
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Tue Apr 10 09:17:47 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Wed Apr 11 09:14:51 2012 -0500
     1.3 @@ -876,6 +876,12 @@
     1.4            (switch-held-items 22 40)
     1.5            close-all-menus)))
     1.6  
     1.7 +(defn regen-control-checkpoint!
     1.8 +  [] (write-script! (launch-bootstrap-program) "control-checkpoint"))
     1.9 +                    
    1.10 +(defn control-checkpoint []
    1.11 +  (read-script "control-checkpoint"))
    1.12 +
    1.13  (defn no-consecutive-repeats? [seq]
    1.14    (not (contains? (set(map - seq (rest seq))) 0)))
    1.15