From ddb839bfd4ba8dbdd214f3e885629fc8fe57e68c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Thu, 14 Mar 2019 16:30:43 -0700 Subject: Replacing (size of $) with (#$) as should have been done before. --- lib/compatibility/2.nom | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lib/compatibility/2.nom') diff --git a/lib/compatibility/2.nom b/lib/compatibility/2.nom index da11245..782ccb0 100644 --- a/lib/compatibility/2.nom +++ b/lib/compatibility/2.nom @@ -33,6 +33,5 @@ upgrade $tree to "2" as: $bits = [: for $ in $tree: add (($ upgraded) if ($ is syntax tree) else $)] unless (($bits, last) is "Block" syntax tree): $body = ($bits, last) - $bits.(size of $bits) = - =lua "SyntaxTree{type='Block', source=\$body.source, \$body}" - return (=lua "SyntaxTree{type='Action', source=\$tree.source, unpack(\$bits)}") + $bits.(#$bits) = (=lua "SyntaxTree{type='Block', source=\$body.source, \$body}") + return (=lua "SyntaxTree{type='Action', source=\$tree.source, unpack(\$bits)}") \ No newline at end of file -- cgit v1.2.3