wip

jank-lang · Feb 20, 2025 · 37aae83 · 37aae83
1 parent 8075b90
commit 37aae83
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/compiler+runtime/test/bash/future/src/jank_test/future.jank b/compiler+runtime/test/bash/future/src/jank_test/future.jank
@@ -1,9 +1,10 @@
 (ns jank-test.future)
 
 (defn -main []
-  (let [atm (atom [])
-        a (future (swap! atm conj "a"))
-        b (future (swap! atm conj "b"))]
-    @a
-    @b
-    (prn @atm "DONE")))
+  (dotimes [_ 100000]
+    (let [atm (atom [])
+          a (future (swap! atm conj "a"))
+          b (future (swap! atm conj "b"))]
+      @a
+      @b
+      (prn @atm "DONE"))))