Commit 0ebac943 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected typo.

parent bdc8d081
......@@ -220,7 +220,7 @@ RETURN: a graph as defined by the nodes in the OBJECTS sequence and
"
(let ((graph (make-instance 'graph-class :edge-class 'directed-edge-class )))
(add-nodes graph objects)
(map nil (lambda (form)
(map nil (lambda (from)
(dolist (to (adjacency-list from))
(when (find to objects)
(add-edge-between-nodes graph from to))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment