Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected compilation bugs
author Robert McIntyre <rlm@mit.edu>
date Thu, 05 Apr 2012 12:59:30 -0500
parents a5cdb2f76307
children a452deec2882
comparison
equal deleted inserted replaced
326:8484e6f6db2c 327:fe6fd2323264
346 (def list-screen-offset-address 52278) 346 (def list-screen-offset-address 52278)
347 347
348 (defn list-offset 348 (defn list-offset
349 ([^SaveState state] 349 ([^SaveState state]
350 (let [mem (memory state)] 350 (let [mem (memory state)]
351 (+ (aget mem item-screen-offset-address) 351 (+ (aget mem list-screen-offset-address)
352 (aget mem item-cursor-offset-address)))) 352 (aget mem list-cursor-offset-address))))
353 ([] (item-offset @current-state))) 353 ([] (list-offset @current-state)))
354 354
355 355
356 356
357 (defn exp-item-selection [] 357 (defn exp-item-selection []
358 (clojure.pprint/pprint 358 (clojure.pprint/pprint