diff --git a/lib/Red/AST/Select.pm6 b/lib/Red/AST/Select.pm6 index fbe03440..ab1fb61f 100644 --- a/lib/Red/AST/Select.pm6 +++ b/lib/Red/AST/Select.pm6 @@ -67,11 +67,9 @@ method minus($sel) { } method as-sub-select { - $!sub-select = True; - self; + self.clone: :sub-select } method as-select { - $!sub-select = False; - self; + self.clone: :!sub-select } diff --git a/lib/Red/ResultSeqMethods.pm6 b/lib/Red/ResultSeqMethods.pm6 index fd3eb8e6..fb5dc913 100644 --- a/lib/Red/ResultSeqMethods.pm6 +++ b/lib/Red/ResultSeqMethods.pm6 @@ -8,7 +8,7 @@ method !agg(Str $func, &block) { self.map({ my @args = block $_; Red::AST::Function.new: :$func, :@args - }).ast.as-sub-select + }).ast: :sub-select } method min(&block) {