Worked around a possible Fennel REPL bug by cloning _G and passing that as :env

Author: Olical

fnl/nfnl/repl.fnl

@@ -23,6 +23,9 @@
             {:pp core.identity
              :readChunk coroutine.yield
 
+             ;; Possible Fennel bug? We need to clone _G or multiple REPLs interfere with each other sometimes.
+             :env (core.merge _G)
+
              :onValues
              (fn [results]
                (set results-to-return (core.concat results-to-return results)))

fnl/spec/nfnl/repl_spec.fnl

@@ -1,4 +1,5 @@
 (local {: describe : it} (require :plenary.busted))
+(local core (require :nfnl.core))
 (local assert (require :luassert.assert))
 (local repl (require :nfnl.repl))
 
@@ -17,4 +18,17 @@
           (assert.are.same nil (r))
           (assert.are.same nil (r ":foo"))
 
+          nil))
+
+    (it "can handle function references, tables and multiple REPLs"
+        (fn []
+          (let [r1 (repl.new)
+                r2 (repl.new)
+                code "(fn a []) (fn b []) {: a : b}"
+                pat "%[#<function: 0x%x+>%s+#<function: 0x%x+>%s+{:%w #<function: 0x%x+> :%w #<function: 0x%x+>}%]"]
+            (assert.matches pat (core.pr-str (r1 code)))
+            (assert.matches pat (core.pr-str (r2 code)))
+            (assert.matches pat (core.pr-str (r1 code)))
+            (assert.matches pat (core.pr-str (r2 code))))
+
           nil))))