From 354c9f789ba9b4692dc72ec33af171d691f74062 Mon Sep 17 00:00:00 2001
From: Thomas Heller
Date: Tue, 20 Nov 2018 13:10:23 +0100
Subject: [PATCH] remove redundant exists? check in dynaload
---
src/main/cljs/cljs/spec/gen/alpha.cljc | 25 +++++++++----------------
1 file changed, 9 insertions(+), 16 deletions(-)
diff --git a/src/main/cljs/cljs/spec/gen/alpha.cljc b/src/main/cljs/cljs/spec/gen/alpha.cljc
index 6df81798..43da3842 100644
--- a/src/main/cljs/cljs/spec/gen/alpha.cljc
+++ b/src/main/cljs/cljs/spec/gen/alpha.cljc
@@ -12,22 +12,15 @@
[clojure.string :as string]))
(defmacro dynaload [[quote s]]
- (let [xs (string/split (namespace s) #"\.")
- cnt (count xs)
- checks (map
- (fn [n xs]
- `(c/exists? ~(symbol (string/join "." (take n xs)))))
- (range 2 cnt)
- (repeat xs))]
- `(cljs.spec.gen.alpha/LazyVar.
- (fn []
- (if (and ~@checks (c/exists? ~s))
- ~(vary-meta s assoc :cljs.analyzer/no-resolve true)
- (throw
- (js/Error.
- (str "Var " '~s " does not exist, "
- (namespace '~s) " never required")))))
- nil)))
+ `(cljs.spec.gen.alpha/LazyVar.
+ (fn []
+ (if (c/exists? ~s)
+ ~(vary-meta s assoc :cljs.analyzer/no-resolve true)
+ (throw
+ (js/Error.
+ (str "Var " '~s " does not exist, "
+ (namespace '~s) " never required")))))
+ nil))
(defmacro delay
"given body that returns a generator, returns a
--
2.11.0