diff clojure/com/aurellem/run/bootstrap_0.clj @ 327:fe6fd2323264

corrected compilation bugs
author Robert McIntyre <rlm@mit.edu>
date Thu, 05 Apr 2012 12:59:30 -0500
parents a5cdb2f76307
children a452deec2882
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Wed Apr 04 14:55:43 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Thu Apr 05 12:59:30 2012 -0500
     1.3 @@ -348,9 +348,9 @@
     1.4  (defn list-offset
     1.5    ([^SaveState state]
     1.6       (let [mem (memory state)]
     1.7 -       (+ (aget mem item-screen-offset-address)
     1.8 -          (aget mem item-cursor-offset-address))))
     1.9 -  ([] (item-offset @current-state)))
    1.10 +       (+ (aget mem list-screen-offset-address)
    1.11 +          (aget mem list-cursor-offset-address))))
    1.12 +  ([] (list-offset @current-state)))
    1.13  
    1.14  
    1.15