diff options
Diffstat (limited to 'src/kompsos-pretty_print.adb')
| -rw-r--r-- | src/kompsos-pretty_print.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb index 62f27fa..87131e1 100644 --- a/src/kompsos-pretty_print.adb +++ b/src/kompsos-pretty_print.adb @@ -68,6 +68,8 @@ package body Kompsos.Pretty_Print is when Pair_Term => if Item.Actual.Right.Actual = null then return Image (Item.Actual.Left); + elsif Item.Actual.Right.Actual.Kind /= Pair_Term then + return Image (Item.Actual.Left) & " . " & Bare (Item.Actual.Right); else return Image (Item.Actual.Left) & " " & Bare (Item.Actual.Right); end if; |