From: Gary King Date: Fri, 12 May 2006 16:58:17 +0000 (-0400) Subject: Fixed a bug in graph->dot: edge-labeler argument was not being used properly X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=bba9034e3ef333735caacda78a76ff4f911ff486 Fixed a bug in graph->dot: edge-labeler argument was not being used properly darcs-hash:20060512165817-3cc5d-7270108f9c50da36cb1dd0d02dddbd503ce88afb.gz --- 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))