Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 596:747d47d96d2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
determined that I cannot shorten the long B sequeuce during bootstrap.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 06:36:57 -0500
parents 96ee9d72aeb9
children 4503899241e6
comparison
equal deleted inserted replaced
595:96ee9d72aeb9 596:747d47d96d2f
301 [0xC3 301 [0xC3
302 (reverse (disect-bytes-2 302 (reverse (disect-bytes-2
303 (+ (count init) start-address)))])] 303 (+ (count init) start-address)))])]
304 (concat init header glyph-display state-machine return-to-header))) 304 (concat init header glyph-display state-machine return-to-header)))
305 305
306 (defn-memo begin-glyph-bootstrap 306 (defn begin-glyph-bootstrap
307 ([] (begin-glyph-bootstrap (launch-main-bootstrap-program))) 307 ([] (begin-glyph-bootstrap (launch-main-bootstrap-program)))
308 ([script] 308 ([script]
309 (let [glyph-init (glyph-init-program relocated-bootstrap-start) 309 (let [glyph-init (glyph-init-program relocated-bootstrap-start)
310 main-glyph-start (+ relocated-bootstrap-start 310 main-glyph-start (+ relocated-bootstrap-start
311 (count glyph-init)) 311 (count glyph-init))