From ecfefeb03e4533419a4efa260ebdcfd163b702f5 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sat, 1 Jan 2022 17:51:39 +0100
Subject: [PATCH] Directly re-export matrix-graph? as the opaque type
 Matrix-Graph.

---
 graph.rkt | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/graph.rkt b/graph.rkt
index 6a19a0f..b6c420f 100644
--- a/graph.rkt
+++ b/graph.rkt
@@ -31,7 +31,7 @@
            unweighted-graph/directed unweighted-graph/adj
            weighted-graph? weighted-graph/undirected weighted-graph/directed
            undirected-graph directed-graph
-           matrix-graph?
+           (rename-out [g:matrix-graph? matrix-graph?])
 
            bfs bfs/generalized fewest-vertices-path
            dfs dfs/generalized
@@ -120,8 +120,6 @@
     (graph (g:directed-graph es ws)))
 
   ;; 2.3 Matrix Graphs
-  (define (matrix-graph? g)
-    (g:matrix-graph? (gg g)))
 
   ;; 4 Basic Graph Functions
   ;; 4.1 Breadth-first Search
@@ -245,6 +243,7 @@
 
 (require/typed/provide 'graph-wrapper
   [#:opaque Graph graph?]
+  [#:opaque Matrix-Graph matrix-graph?]
 
   ;; 1 Generic Graph Interface
   [has-vertex? (-> Graph Any Boolean)]
@@ -283,7 +282,6 @@
   [directed-graph (->* ((Listof (List Any Any))) ((Listof Any)) Graph)]
 
   ;; 2.3 Matrix Graphs
-  [matrix-graph? (-> Graph Boolean)]
 
   ;; 4 Basic Graph Functions
   ;; 4.1 Breadth-first Search