From ca7a5699bd0fbca3ead35c01320832b2cc88c458 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Sat, 17 Feb 2024 21:33:11 -0700
Subject: [PATCH] _ccForEachIterator

---
 src/hollywoo/Movie.kiss | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/src/hollywoo/Movie.kiss b/src/hollywoo/Movie.kiss
index 390b3db..99e2bc6 100644
--- a/src/hollywoo/Movie.kiss
+++ b/src/hollywoo/Movie.kiss
@@ -349,16 +349,19 @@
         (dictSet sounds name s)
         (dictSet soundDescriptions name description))
 
+    (method _ccForEachIterator <>[T] [:Iterator<T> iter :(T,Continuation)->Void do_ :Continuation finalCC]
+        (withFunctions
+            [
+                (:Void doNext []
+                    (if (iter.hasNext)
+                            (do_ (iter.next) doNext)
+                        (finalCC)))
+            ]
+            (doNext)))
+
     (method _ccForEach <>[T] [:Iterable<T> collection :(T,Continuation)->Void do_ :Continuation finalCC]
         (let [:Iterator<T> iter (collection.iterator)]
-            (withFunctions
-                [
-                    (:Void doNext []
-                        (if (iter.hasNext)
-                                (do_ (iter.next) doNext)
-                            (finalCC)))
-                ]
-                (doNext))))
+            (_ccForEachIterator iter do_ finalCC)))
 
     (method _hideCurrentScene [:Continuation cc]
         (if sceneKey