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/4.8.10.nom | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lib/compatibility/4.8.10.nom') diff --git a/lib/compatibility/4.8.10.nom b/lib/compatibility/4.8.10.nom index 15a502b..71d69d0 100644 --- a/lib/compatibility/4.8.10.nom +++ b/lib/compatibility/4.8.10.nom @@ -11,7 +11,7 @@ upgrade action "local action" to "4.8.10" via $body = $tree.4 if $spec.type is: "List": - if ((size of $spec) == 1): + if ((#$spec) == 1): return \($spec.1 means $body) ..else: return \($spec all mean $body) @@ -26,7 +26,7 @@ upgrade action "action" to "4.8.10" via if $body: if $spec.type is: "List": - if ((size of $spec) == 1): + if ((#$spec) == 1): return \(externally $spec.1 means $body) ..else: return \(externally $spec all mean $body) @@ -42,7 +42,7 @@ upgrade action "compile 1 to" to "4.8.10" via $body = $tree.4 if $spec.type is: "List": - if ((size of $spec) == 1): + if ((#$spec) == 1): return \($spec.1 compiles to $body) ..else: return \($spec all compile to $body) @@ -56,7 +56,7 @@ upgrade action "parse 1 as" to "4.8.10" via $body = $tree.4 if $spec.type is: "List": - if ((size of $spec) == 1): + if ((#$spec) == 1): return \($spec.1 parses as $body) ..else: return \($spec all parse as $body) @@ -65,4 +65,4 @@ upgrade action "parse 1 as" to "4.8.10" via return \($spec parse as $body) upgrade action (compile as $) to "4.8.10" as (what $ compiles to) -upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil)) +upgrade action (remove action $) to "4.8.10" as (($'s meaning) = (nil)) \ No newline at end of file -- cgit v1.2.3