X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-container.lisp;h=21ca52e32f91ce88b509a3d533795ad26f91529e;hb=30d6c8f9bd55ddefd48d333bfeb73b1a2a333e99;hp=91fde47f25b8d4e791c846664ca613a03a2bd36d;hpb=47ed448564c30a2d685e8897a80b14aa7798261a;p=cl-graph.git

diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp
index 91fde47..21ca52e 100644
--- a/dev/graph-container.lisp
+++ b/dev/graph-container.lisp
@@ -283,14 +283,14 @@ DISCUSSION
 ;;; ---------------------------------------------------------------------------
 
 (defmethod iterate-children ((vertex graph-container-vertex) fn)
-  (iterate-target-edges vertex
+  (iterate-source-edges vertex
                         (lambda (edge)
                           (funcall fn (other-vertex edge vertex)))))
 
 ;;; ---------------------------------------------------------------------------
 
 (defmethod iterate-parents ((vertex graph-container-vertex) fn)
-  (iterate-source-edges vertex
+  (iterate-target-edges vertex
                         (lambda (edge)
                           (funcall fn (other-vertex edge vertex)))))