diff clojure/com/aurellem/run/util.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 abd1ca8a25cc
children
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/util.clj	Tue Apr 10 09:17:47 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/util.clj	Wed Apr 11 09:14:51 2012 -0500
     1.3 @@ -245,3 +245,14 @@
     1.4               (range n)))
     1.5    ([n command script]
     1.6       (multiple-times n command [] script)))
     1.7 +
     1.8 +(defn write-script!
     1.9 +  [[moves state :as script] name]
    1.10 +  [(write-moves! moves name)
    1.11 +   (write-state! state name)])
    1.12 +
    1.13 +(defn read-script
    1.14 +  [name]
    1.15 +  [(read-moves name)
    1.16 +   (read-state name)])
    1.17 +   
    1.18 \ No newline at end of file