Mercurial > vba-clojure
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 375:ce74088cd953 | 376:7c89fe478de4 |
|---|---|
| 873 (set-cursor 1) | 873 (set-cursor 1) |
| 874 (select-menu-entry) | 874 (select-menu-entry) |
| 875 (toss-held-item 22 12) | 875 (toss-held-item 22 12) |
| 876 (switch-held-items 22 40) | 876 (switch-held-items 22 40) |
| 877 close-all-menus))) | 877 close-all-menus))) |
| 878 | |
| 879 (defn regen-control-checkpoint! | |
| 880 [] (write-script! (launch-bootstrap-program) "control-checkpoint")) | |
| 881 | |
| 882 (defn control-checkpoint [] | |
| 883 (read-script "control-checkpoint")) | |
| 878 | 884 |
| 879 (defn no-consecutive-repeats? [seq] | 885 (defn no-consecutive-repeats? [seq] |
| 880 (not (contains? (set(map - seq (rest seq))) 0))) | 886 (not (contains? (set(map - seq (rest seq))) 0))) |
| 881 | 887 |
| 882 (defn byte->nybbles [byte] | 888 (defn byte->nybbles [byte] |