diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-15 08:03:12 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-15 08:03:12 +1300 |
| commit | 72faae829a789664eedbda930cf815663c41c591 (patch) | |
| tree | 53d9c1fe6149b1e0c57bb12a6aab90d494da4455 /src/kompsos-pretty_print.adb | |
| parent | 25164ac09136d378d21411b9e47fededa4352594 (diff) | |
Prelude combined into base, lazy Conjunct kinda working but still loops in some circumstances
Diffstat (limited to 'src/kompsos-pretty_print.adb')
| -rw-r--r-- | src/kompsos-pretty_print.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb index 88c13c7..7ecbb75 100644 --- a/src/kompsos-pretty_print.adb +++ b/src/kompsos-pretty_print.adb @@ -125,11 +125,11 @@ package body Kompsos.Pretty_Print is function Image - (Item : in Mu_World'Class) + (Item : in World) return String is Result : SU.Unbounded_String; - Scratch : Mu_World'Class := Item; + Scratch : World := Item; Counter : Positive := 1; begin if not Scratch.Has_State (Counter) then |