More naval gazing

demo.scm

@@ -1,11 +1,6 @@
 (use-modules (graphgif)
-	     (srfi srfi-1)
-	     (srfi srfi-43)
-	     (ice-9 copy-tree)
 	     (d-))
 
-(define red (create-color 1 0 0))
-
 (define graph
   (~> (generate-web 10 10)
       (remove-rect 10 1 3 6 3)
@@ -20,12 +15,12 @@
        graph))
 (define (make-graph-generator f)
   (generator
-   (f graph 90 9 (lambda (visited heap)
-			  (yield (color-graph graph visited heap))))
+   (f graph 90 9
+      (lambda (visited heap)
+	(yield (color-graph graph visited heap))))
    #f))
 
 (define djikstra-generator (make-graph-generator djikstra))
 (define a*-generator (make-graph-generator a*))
 (write-graphs-to-file "djikstra.webp" djikstra-generator)
 (write-graphs-to-file "astar.webp" a*-generator)
-