1.1 --- a/clojure/com/aurellem/gb/pokemon.clj	Wed Mar 21 22:17:06 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon.clj	Wed Mar 21 23:02:45 2012 -0500
     1.3 @@ -4,8 +4,11 @@
     1.4  
     1.5  (def pokemon-names-start 0xD2B4)
     1.6  
     1.7 -(defn change-party-number [^SaveState state new-num]
     1.8 -  (set-memory state 0xD162 new-num))
     1.9 +(defn set-party-number
    1.10 +  ([^SaveState state new-party-num]
    1.11 +     (set-memory state 0xD162 new-party-num))
    1.12 +  ([new-party-num]
    1.13 +     (set-party-number @current-state new-party-num)))
    1.14  
    1.15  (def party-number-address 0xD162)
    1.16