diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6 index 13a58513a51..94acdbcaaea 100644 --- a/src/core.c/RakuAST/Deparse.pm6 +++ b/src/core.c/RakuAST/Deparse.pm6 @@ -646,6 +646,10 @@ class RakuAST::Deparse { $ast.atoms.map({ self!deparse-unquoted($_) }).join } + multi method deparse(RakuAST::Doc::Row:D $ast --> Str:D) { + $ast.Str + } + #- Dot ------------------------------------------------------------------------- multi method deparse(RakuAST::DottyInfix::Call:D $ --> Str:D) { diff --git a/src/core.c/RakuAST/Fixups.pm6 b/src/core.c/RakuAST/Fixups.pm6 index 0ae309e25ca..5ae00d5f09c 100644 --- a/src/core.c/RakuAST/Fixups.pm6 +++ b/src/core.c/RakuAST/Fixups.pm6 @@ -5,6 +5,13 @@ my class RakuAST::LegacyPodify { ... } # needed to compile the Raku setting) to be written in Raku rather # than in NQP. +my class RakuAST::Doc::Row { + has str $.column-dividers; + has $.column-offsets is built(:bind); # native int array + has $.cells is built(:bind); # native str array + has Bool $.multi-line is built(False); # columns are multi-line +} + augment class RakuAST::Doc { # just pass it on for now, make using another class possible diff --git a/src/core.c/RakuAST/Raku.pm6 b/src/core.c/RakuAST/Raku.pm6 index 08372a0bc3d..6377ee6d625 100644 --- a/src/core.c/RakuAST/Raku.pm6 +++ b/src/core.c/RakuAST/Raku.pm6 @@ -364,6 +364,10 @@ augment class RakuAST::Node { self!positionals(self.atoms) } + multi method raku(RakuAST::Doc::Row:D: --> Str:D) { + self!nameds: + } + #- Dot ------------------------------------------------------------------------- # Handles all of the RakuAST::DottyInfix::xxx classes