Mercurial > vba-clojure

diff clojure/com/aurellem/gb/util.clj @ 176:95b2758dd517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wrote functions to read and write pokemon DV values and status
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 22:13:43 -0500
parents 5ce074824fac
children fd549c8f42ae
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/util.clj	Wed Mar 21 18:17:37 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/util.clj	Wed Mar 21 22:13:43 2012 -0500
     1.3 @@ -42,13 +42,16 @@
     1.4    ([mem]
     1.5       (view-memory @current-state mem)))
     1.6  
     1.7 -(defn print-listing [state begin end]
     1.8 -  (dorun (map 
     1.9 -          (fn [opcode line]
    1.10 -            (println (format "0x%04X:  0x%02X" line opcode)))
    1.11 -          (subvec  (vec (memory state)) begin end)
    1.12 -          (range begin end)))
    1.13 -  state)
    1.14 +(defn print-listing
    1.15 +  ([^SaveState state begin end]
    1.16 +     (dorun (map 
    1.17 +             (fn [opcode line]
    1.18 +               (println (format "0x%04X:  0x%02X" line opcode)))
    1.19 +             (subvec  (vec (memory state)) begin end)
    1.20 +             (range begin end)))
    1.21 +     state)
    1.22 +  ([begin end]
    1.23 +     (print-listing @current-state begin end)))
    1.24  
    1.25  (defn print-pc
    1.26    ([^SaveState state]