Polyfill iterator

Author: nojaf

package.json

@@ -86,6 +86,7 @@
     "@types/node": "^20.14.9",
     "@types/semver": "^7.7.0",
     "@yarnpkg/types": "^4.0.1",
+    "es-iterator-helpers": "1.2.1",
     "mocha": "10.8.2",
     "nyc": "15.0.0",
     "semver": "^7.7.2",

tests/docstring_tests/DocTest.res

@@ -235,7 +235,12 @@ let main = async () => {
     })
 
     if codeExamples->Array.length > 0 {
-      let content = `describe("${key}", () => {
+      let content = `
+%%raw(\`
+import 'es-iterator-helpers/auto';
+\`)
+
+describe("${key}", () => {
 ${codeExamples->Array.join("\n")}
  })`
       output->Array.push(content)

tests/docstring_tests/DocTest.res.js

@@ -4,6 +4,9 @@ import * as Test from "./Test.mjs";
 import * as Primitive_object from "rescript/lib/es6/Primitive_object.js";
 import * as Stdlib_AsyncIterator from "rescript/lib/es6/Stdlib_AsyncIterator.js";
 
+import 'es-iterator-helpers/auto';
+;
+
 let eq = Primitive_object.equal;
 
 let iterator = ((() => {
@@ -16,24 +19,6 @@ let syncResult = {
   contents: undefined
 };
 
-if (!Iterator.prototype.forEach) {
-  Iterator.prototype.forEach = function forEach(callback, thisArg) {
-    if (typeof callback !== 'function') {
-      throw new TypeError(callback + ' is not a function');
-    }
-
-    let index = 0;
-    let result = this.next();
-
-    while (!result.done) {
-      callback.call(thisArg, result.value, index, this);
-      result = this.next();
-      index++;
-    }
-  };
-}
-;
-
 iterator.forEach(v => {
   if (v === "b") {
     syncResult.contents = "b";
@@ -45,7 +30,7 @@ iterator.forEach(v => {
 Test.run([
   [
     "Core_IteratorTests.res",
-    38,
+    23,
     20,
     34
   ],
@@ -77,7 +62,7 @@ await Stdlib_AsyncIterator.forEach(asyncIterator, v => {
 Test.run([
   [
     "Core_IteratorTests.res",
-    61,
+    46,
     20,
     35
   ],
@@ -113,7 +98,7 @@ await Stdlib_AsyncIterator.forEach(asyncIterator$1, v => {
 Test.run([
   [
     "Core_IteratorTests.res",
-    86,
+    71,
     20,
     54
   ],
@@ -127,4 +112,4 @@ export {
   asyncResult,
   asyncIterator$1 as asyncIterator,
 }
-/* iterator Not a pure module */
+/*  Not a pure module */

tests/tests/src/core/Core_IteratorTests.mjs

@@ -1,3 +1,7 @@
+%%raw(`
+import 'es-iterator-helpers/auto';
+`)
+
 let eq = (a, b) => a == b
 
 let iterator: Iterator.t<string> = %raw(`
@@ -10,25 +14,6 @@ let iterator: Iterator.t<string> = %raw(`
 
 let syncResult = ref(None)
 
-%%raw(`
-if (!Iterator.prototype.forEach) {
-  Iterator.prototype.forEach = function forEach(callback, thisArg) {
-    if (typeof callback !== 'function') {
-      throw new TypeError(callback + ' is not a function');
-    }
-
-    let index = 0;
-    let result = this.next();
-
-    while (!result.done) {
-      callback.call(thisArg, result.value, index, this);
-      result = this.next();
-      index++;
-    }
-  };
-}
-`)
-
 iterator->Iterator.forEach(v => {
   if v == "b" {
     syncResult.contents = Some("b")

tests/tests/src/core/Core_IteratorTests.res

@@ -11,6 +11,9 @@ import * as Core_IntlTests from "./intl/Core_IntlTests.mjs";
 import * as Primitive_bigint from "rescript/lib/es6/Primitive_bigint.js";
 import * as Primitive_option from "rescript/lib/es6/Primitive_option.js";
 
+import 'es-iterator-helpers/auto';
+;
+
 console.info("");
 
 console.info("Array");

tests/tests/src/core/Core_TempTests.mjs

@@ -1,5 +1,9 @@
 include Core_IntlTests
 
+%%raw(`
+import 'es-iterator-helpers/auto';
+`)
+
 Console.info("")
 Console.info("Array")
 Console.info("---")