From 47ed448564c30a2d685e8897a80b14aa7798261a Mon Sep 17 00:00:00 2001 From: Gary King Date: Sat, 6 Sep 2008 21:00:30 -0400 Subject: [PATCH] Case 214: target-edges and source-edges were bass-ackwards; also added test darcs-hash:20080907010030-3cc5d-47009c62f9d7b96a72f9188220fa59e1d1f540b3.gz --- dev/graph-container.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dev/graph-container.lisp b/dev/graph-container.lisp index 7c9bf2f..91fde47 100644 --- a/dev/graph-container.lisp +++ b/dev/graph-container.lisp @@ -268,7 +268,7 @@ DISCUSSION (iterate-elements (vertex-edges vertex) (lambda (edge) (when (or (undirected-edge-p edge) - (eq vertex (target-vertex edge))) + (eq vertex (source-vertex edge))) (funcall fn edge))))) ;;; --------------------------------------------------------------------------- @@ -277,7 +277,7 @@ DISCUSSION (iterate-elements (vertex-edges vertex) (lambda (edge) (when (or (undirected-edge-p edge) - (eq vertex (source-vertex edge))) + (eq vertex (target-vertex edge))) (funcall fn edge))))) ;;; --------------------------------------------------------------------------- -- 1.7.10.4