use vectors

2024-10-22 09:25:54 -05:00
parent 31f4707fbf
commit 2da23e143c
2 changed files with 10 additions and 9 deletions
--- a/demo.scm
+++ b/demo.scm
@@ -7,4 +7,4 @@
 (define graph1 (generate-web 10 10))
 (define graph2 (remove-rect (copy-tree graph1) 10 3 3 4 5))
 (assq-set! graph2 0 (set-node-color (assq-ref graph2 0) red))
-(write-graphs-to-file (list graph1 graph2) "graph.gif")
+(write-graphs-to-file (vector graph1 graph2) "graph.gif")