Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 277:710bfbb1e048

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix compiliation errors
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 12:57:58 -0500
parents 68f4e87c8f51
children 7ecea582ec9d
comparison
equal deleted inserted replaced
276:18336ab5d6ea 277:710bfbb1e048
1 (ns com.aurellem.run.bootstrap-0 1 (ns com.aurellem.run.bootstrap-0
2 (:use (com.aurellem.gb gb-driver vbm characters)) 2 (:use (com.aurellem.gb gb-driver vbm characters money))
3 (:use (com.aurellem.run title save-corruption)) 3 (:use (com.aurellem.run title save-corruption))
4 (:use (com.aurellem.exp item-bridge)) 4 (:use (com.aurellem.exp item-bridge))
5 (:import [com.aurellem.gb.gb_driver SaveState])) 5 (:import [com.aurellem.gb.gb_driver SaveState]))
6 6
7 (defn-memo boot-root [] 7 (defn-memo boot-root []
506 (do-nothing 10) 506 (do-nothing 10)
507 (buy-item 0 (item-lookup 3)))))) 507 (buy-item 0 (item-lookup 3))))))
508 508
509 509
510 (defn test-buy-items 510 (defn test-buy-items
511 ([] (test-buy-itemss 511 ([] (test-buy-items
512 (walk-to-counter))) 512 (walk-to-counter)))
513 ([script] 513 ([script]
514 (->> [(first script) (set-money (second script) 514 (->> [(first script) (set-money (second script)
515 999999)] 515 999999)]
516 (play-moves 516 (play-moves