projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1fe64e8
)
Fixed a bug in graph->dot: edge-labeler argument was not being used properly
author
Gary King
<gwking@metabang.com>
Fri, 12 May 2006 16:58:17 +0000
(12:58 -0400)
committer
Gary King
<gwking@metabang.com>
Fri, 12 May 2006 16:58:17 +0000
(12:58 -0400)
darcs-hash:
20060512165817
-3cc5d-
7270108f9c50da36cb1dd0d02dddbd503ce88afb
.gz
dev/graphviz/graphviz-support.lisp
patch
|
blob
|
history
diff --git
a/dev/graphviz/graphviz-support.lisp
b/dev/graphviz/graphviz-support.lisp
index
a8e7ee7
..
a974d64
100644
(file)
--- 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))