don't warn if $expr<variable> :!exist

TimToady · TimToady · commit 34cdff5ddbe4 · 2013-08-19T15:03:29.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -1546,7 +1546,7 @@ grammar P6 is STD {
     }
     
     method worry_itemlist($expr) {
-        if $expr<variable> {
+        if %$expr<variable> :exists {
             my $var = $expr<variable>.Str;
             if substr($var,0,1) eq '$' {
                 self.cursor($expr.from).worry("'for $var' will never flatten a \$ variable;\n\tto force list interpolation, please use either 'for \@$var' or 'for $var\[]';\n\tif you just want item topicalization, use 'given $var' instead");

Original file line number	Diff line number	Diff line change
`@@ -1546,7 +1546,7 @@ grammar P6 is STD {`
`1546`	`1546`	`}`
`1547`	`1547`
`1548`	`1548`	`method worry_itemlist($expr) {`
`1549`		`- if $expr<variable> {`
	`1549`	`+ if %$expr<variable> :exists {`
`1550`	`1550`	`my $var = $expr<variable>.Str;`
`1551`	`1551`	`if substr($var,0,1) eq '$' {`
`1552`	`1552`	`self.cursor($expr.from).worry("'for $var' will never flatten a \$ variable;\n\tto force list interpolation, please use either 'for \@$var' or 'for $var\[]';\n\tif you just want item topicalization, use 'given $var' instead");`