diff options
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 |