Make as-sub-select and as-select return a new select, maybe related to …

…#554?
FCO · Oct 15, 2023 · fbe7d5a · fbe7d5a
1 parent ac69941
commit fbe7d5a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git 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
@@ -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) {