Fully qualify loop

Author: borkdude

src/sci/impl/utils.cljc

@@ -161,7 +161,7 @@
     ("clojure.core" "cljs.core") (symbol (name sym))
     sym))
 
-(def allowed-loop (symbol "loop"))
+(def allowed-loop (symbol "clojure.core/loop"))
 (def allowed-recur (symbol "recur"))
 (def var-unbound #?(:clj (Object.)
                     :cljs (js/Object.)))

test/sci/core_test.cljc

@@ -745,6 +745,12 @@
 " {})))
   (is (= 1 (tu/eval* "
 (let [let 1] (loop [x 1] x))"
+                     {})))
+  (is (= [1 2 3] (tu/eval* "
+(ns exclude-loop (:refer-clojure :exclude [loop]))
+(def state (atom []))
+(doseq [i [1 2 3]] (swap! state conj i))
+@state"
                      {}))))
 
 (deftest for-test