From bba9034e3ef333735caacda78a76ff4f911ff486 Mon Sep 17 00:00:00 2001 From: Gary King Date: Fri, 12 May 2006 12:58:17 -0400 Subject: [PATCH] Fixed a bug in graph->dot: edge-labeler argument was not being used properly darcs-hash:20060512165817-3cc5d-7270108f9c50da36cb1dd0d02dddbd503ce88afb.gz --- dev/graphviz/graphviz-support.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index a8e7ee7..a974d64 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -61,7 +61,7 @@ This file contains the stuff that does not depend on cl-graphviz. (princ " [" stream) (when (and directed? directed-edge-tag) (princ directed-edge-tag stream)) - (when edge-key + (when edge-labeler (princ "label=\"" stream) (funcall edge-labeler e stream) (princ "\"," stream)) -- 1.7.10.4