diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-22 10:43:33 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-22 10:43:33 +1300 |
| commit | 42e3c2fa30552a227e38f03b859f03ae51f9000d (patch) | |
| tree | 40833de7cfbe03168516c1df23e25ff7502844dd /src/kompsos.adb | |
| parent | 2f622510f4feecee552c43a31bd592d1c7f6617f (diff) | |
Moved < operator for Graph_Component_Access over to Pretty_Print package
Diffstat (limited to 'src/kompsos.adb')
| -rw-r--r-- | src/kompsos.adb | 21 |
1 files changed, 1 insertions, 20 deletions
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 -- |