Fix some issues with R:I.OneValue

- make sure sink-all works ok on JVM - add support for skip-one
rakudo · Aug 13, 2017 · 3ad3346 · 3ad3346 · b2gills · Aug 14, 2017
1 parent 30584da
commit 3ad3346
Showing 1 changed file with 20 additions and 1 deletion.
diff --git a/src/core/Rakudo/Iterator.pm b/src/core/Rakudo/Iterator.pm
@@ -2186,7 +2186,26 @@ class Rakudo::Iterator {
 #?endif
                 )
             }
-            method sink-all(--> IterationEnd) { $!value := nqp::null }
+            method skip-one() {
+                nqp::if(
+#?if jvm
+                  nqp::not_i(nqp::eqaddr($!value,Mu)),
+                  nqp::isfalse($!value := Mu))
+#?endif
+#?if !jvm
+                  nqp::not_i(nqp::isnull($!value)),
+                  nqp::isfalse($!value := nqp::null)
+#?endif
+                )
+            }
+            method sink-all(--> IterationEnd) {
+#?if jvm
+                $!value := Mu
+#?endif
+#?if !jvm
+                $!value := nqp::null
+#?endif
+            }
             method count-only(--> 1) { }
             method bool-only(--> True) { }
         }.new(value)