Follow cl-graphviz changes

[cl-graph.git] / dev / graphviz / graphviz-support-optional.lisp

diff --git a/dev/graphviz/graphviz-support-optional.lisp b/dev/graphviz/graphviz-support-optional.lisp
index 9b4c2f1..2d65b62 100644 (file)
--- a/dev/graphviz/graphviz-support-optional.lisp
+++ b/dev/graphviz/graphviz-support-optional.lisp
@@ -58,7 +58,7 @@ loaded when cl-graphviz is available.
                                 (to-vertex (find-vertex-by-id g (graphviz:node-name to)))
                                 (real-edge (find-edge-between-vertexes g from-vertex to-vertex))
                                 (bezier-points '()))
-                           (graphviz:edge-iterate-beziers
+                           (graphviz:iterate-edge-beziers
                             edge
                             (lambda (bezier)
                               ;;(format t "  Bezier: ~a~%"