From 42e3c2fa30552a227e38f03b859f03ae51f9000d Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 22 Jan 2026 10:43:33 +1300
Subject: Moved < operator for Graph_Component_Access over to Pretty_Print
 package

---
 src/kompsos.adb | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

(limited to 'src/kompsos.adb')

diff --git a/src/kompsos.adb b/src/kompsos.adb
index 87c8555..f7f0ba9 100644
--- a/src/kompsos.adb
+++ b/src/kompsos.adb
@@ -9,9 +9,7 @@
 with
 
     Ada.Unchecked_Deallocation,
-    Kompsos.Collector,
-    System.Address_To_Access_Conversions,
-    System.Storage_Elements;
+    Kompsos.Collector;
 
 
 package body Kompsos is
@@ -228,23 +226,6 @@ package body Kompsos is
 
 
 
-    --  Goal Graphs  --
-
-    package Graph_Convert is new System.Address_To_Access_Conversions (Graph_Component);
-
-    function "<"
-           (Left, Right : in Graph_Component_Access)
-        return Boolean
-    is
-        use System.Storage_Elements;
-    begin
-        return
-            To_Integer (Graph_Convert.To_Address (Graph_Convert.Object_Pointer (Left))) <
-            To_Integer (Graph_Convert.To_Address (Graph_Convert.Object_Pointer (Right)));
-    end "<";
-
-
-
 
     -------------------
     --  microKanren  --
-- 
cgit