Commit 80029e75 authored by amirouche's avatar amirouche

grf3: export vertex?, edge? and TODO++

parent 5ac2d1ca
......@@ -30,16 +30,16 @@
(use-modules (wiredtiger feature-space))
(define-record-type* <vertex> uid assoc)
(define-record-type* <vertex> uid assoc) ;; TODO: replace with hygenic macro
(export vertex-assoc vertex-uid)
(export vertex? vertex-assoc vertex-uid)
(define-public (vertex-assoc* vertex)
(acons 'uid (vertex-uid vertex) (vertex-assoc vertex)))
(define-record-type* <edge> uid assoc)
(export edge-uid edge-assoc)
(export edge? edge-uid edge-assoc)
(define-public VERTEX 0)
(define-public EDGE 1)
......
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