From 09f2e1d4306853bda107c2bbe5e257840e67934b Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 6 Dec 2023 22:06:38 +0100
Subject: [PATCH] Fix JVM compat

---
 src/squint/compiler.cljc | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/squint/compiler.cljc b/src/squint/compiler.cljc
index 49c2dcf8..0f42e089 100644
--- a/src/squint/compiler.cljc
+++ b/src/squint/compiler.cljc
@@ -173,7 +173,7 @@
         gensym (:gensym env)
         local (gensym)
         env (update env :var->ident assoc local local)]
-    (str (emit (list 'js* (str/replace "for (let %s of ~{})" "%s" local)
+    (str (emit (list 'js* (str/replace "for (let %s of ~{})" "%s" (str local))
                      (list 'clojure.core/iterable v))
                env)
          " {\n"
@@ -377,10 +377,12 @@
                       :top-level true
                       :core-vars core-vars
                       :gensym (let [ctr (volatile! 0)]
-                                (fn [sym]
-                                  (let [next-id (vswap! ctr inc)]
-                                    (symbol (str (if sym (munge sym)
-                                                     "G__") next-id)))))
+                                (fn gensym*
+                                  ([] (gensym* nil))
+                                  ([sym]
+                                     (let [next-id (vswap! ctr inc)]
+                                       (symbol (str (if sym (munge sym)
+                                                        "G__") next-id))))))
                       :emit {::cc/list emit-list
                              ::cc/vector emit-vector
                              ::cc/map emit-map