comparison 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
comparison
equal deleted inserted replaced
375:ce74088cd953 376:7c89fe478de4
243 (apply command (concat args [script]))) 243 (apply command (concat args [script])))
244 script 244 script
245 (range n))) 245 (range n)))
246 ([n command script] 246 ([n command script]
247 (multiple-times n command [] script))) 247 (multiple-times n command [] script)))
248
249 (defn write-script!
250 [[moves state :as script] name]
251 [(write-moves! moves name)
252 (write-state! state name)])
253
254 (defn read-script
255 [name]
256 [(read-moves name)
257 (read-state name)])
258