apl: restore styling of empty meaning cells

Broken in commit v1.13-22-g97470ff139 (2022-06-04)
[apl: silence warning about printf parameters].

diff --git a/apl.plp b/apl.plp
index 395cf202d2eea6424e9e9bab0944459307f2c451..302a55d5d0af890c5eb8328fb9bb1d5aeafdd50e 100644 (file)
--- a/apl.plp
+++ b/apl.plp
@@ -70,7 +70,7 @@ for my $op (@{$ops}) {
        printf(
                '<td%s>%s',
                map { defined ? (!!$_->[1] && qq( title="$_->[1]"), $_->[0]) : (' class=Xi', '') }
-               [map { EscapeHTML($_) } split /\n/, $_, 2]
+               $_ && [map { EscapeHTML($_) } split /\n/, $_, 2]
        ) for $monad, $dyad;
        say '</td>';
 }