do onearg correctly on junctional listops

rakudo · Sep 20, 2015 · 885cf27 · 885cf27
1 parent f8ee5f6
commit 885cf27
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/core/Junction.pm b/src/core/Junction.pm
@@ -135,14 +135,14 @@ my class Junction { # declared in BOOTSTRAP
     }
 }
 
-sub any(+values) { Junction.new(values, :type<any>); }
-sub all(+values) { Junction.new(values, :type<all>); }
-sub one(+values) { Junction.new(values, :type<one>); }
-sub none(+values) { Junction.new(values, :type<none>); }
-
-sub infix:<|>(+values) { Junction.new(values, :type<any>); }
-sub infix:<&>(+values) { Junction.new(values, :type<all>); }
-sub infix:<^>(+values) { Junction.new(values, :type<one>); }
+sub any (+values) { values.any }
+sub all (+values) { values.all }
+sub one (+values) { values.one }
+sub none(+values) { values.none }
+
+sub infix:<|>(+values) { values.any }
+sub infix:<&>(+values) { values.all }
+sub infix:<^>(+values) { values.one }
 
 sub AUTOTHREAD(|c) {
     Junction.AUTOTHREAD(|c)