1.1 --- a/org/vision.org	Sat Feb 04 10:00:37 2012 -0700
     1.2 +++ b/org/vision.org	Sat Feb 04 10:13:15 2012 -0700
     1.3 @@ -237,8 +237,10 @@
     1.4     (for [eye (eyes creature)]
     1.5       (vision-fn creature eye))))
     1.6  
     1.7 -(defvar 
     1.8 -  view-vision
     1.9 +(defn view-vision
    1.10 +  "Creates a function which accepts a list of visual sensor-data and
    1.11 +  displays each element of the list to the screen." 
    1.12 +  []
    1.13    (view-sense
    1.14     (fn 
    1.15       [[coords sensor-data]]
    1.16 @@ -247,9 +249,7 @@
    1.17          (for [i (range (count coords))]
    1.18            (.setRGB image ((coords i) 0) ((coords i) 1)
    1.19                     (sensor-data i))))
    1.20 -       image)))
    1.21 -  "Creates a function which accepts visual sensor-data and displays it
    1.22 -   to the screen.")
    1.23 +       image))))
    1.24  
    1.25  #+end_src
    1.26