Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/vbm.clj @ 336:25b7bb7da3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed two major bugs related to restart events which were causing desync. The entire video now syncs properly.
author Robert McIntyre <rlm@mit.edu>
date Sat, 07 Apr 2012 07:31:59 -0500
parents abd1ca8a25cc
children c8cda378e1a0
comparison
equal deleted inserted replaced
335:abd1ca8a25cc 336:25b7bb7da3b1
54 [buttons] 54 [buttons]
55 (loop [fixed [] 55 (loop [fixed []
56 pending buttons] 56 pending buttons]
57 (if (empty? pending) fixed 57 (if (empty? pending) fixed
58 (let [mask (first pending)] 58 (let [mask (first pending)]
59 (if (contains? (set (first pending)) :reset) 59 (if (contains? (set (first pending)) :restart)
60 (recur (conj fixed mask) (drop 3 pending)) 60 (recur (conj fixed mask) (drop 3 pending))
61 (recur (conj fixed mask) (next pending))))))) 61 (recur (conj fixed mask) (next pending)))))))
62 62
63 (defn moves-filename [name] 63 (defn moves-filename [name]
64 (File. *moves-cache* (format "%s.vbm" name))) 64 (File. *moves-cache* (format "%s.vbm" name)))