Commit 5ac2d1ca authored by amirouche's avatar amirouche


parent 49d3eb00
......@@ -68,6 +68,7 @@
(assoc-ref (vertex-assoc vertex) key))
(define-public (create-edge start end assoc) ;; FIXME: add a "!"
"Link START and END with ASSOC"
(let* ((assoc (acons '%kind EDGE assoc))
(assoc (acons '%start (vertex-uid start) assoc))
(assoc (acons '%end (vertex-uid end) assoc)))
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