wisp
 
(Arne Babenhauserheide)
2014-05-02: fill the world-values with zeros.

fill the world-values with zeros.

diff --git a/examples/d20world.w b/examples/d20world.w
--- a/examples/d20world.w
+++ b/examples/d20world.w
@@ -9,7 +9,7 @@
 ; its inverse (element-id to lon+lat). For further subdivisions, just
 ; elevate the center of each edge and connect these centers.
 
-define world : make-vector 20
+define world : make-vector 20 0
 define neighbors : make-vector 20
 ; count from the top
 
@@ -59,7 +59,6 @@ let loop : : relationships neighbors-hel
       : cur : car relationships
           idx : 1- : car cur
           vec : cdr cur
-      vector-set! world idx idx
       vector-set! neighbors idx : make-vector 3
       let setidx : : idxtoset '(0 1 2)
         cond