comparison org/test-creature.org @ 122:b591da250afc

fixed bug in test code.
author Robert McIntyre <rlm@mit.edu>
date Sun, 22 Jan 2012 04:53:58 -0700
parents 05e60a0ed043
children 91773e8ec50f
comparison
equal deleted inserted replaced
121:05e60a0ed043 122:b591da250afc
870 ]) 870 ])
871 standard-debug-controls 871 standard-debug-controls
872 (fn [world] 872 (fn [world]
873 (light-up-everything world) 873 (light-up-everything world)
874 (enable-debug world) 874 (enable-debug world)
875 (map #(% world) init-vision-fns) 875 (dorun (map #(% world) init-vision-fns))
876 876
877 (add-eye world 877 (add-eye world
878 (attach-eye creature (test-eye)) 878 (attach-eye creature (test-eye))
879 (comp (view-image) BufferedImage!)) 879 (comp (view-image) BufferedImage!))
880 880