rearrange code to hide riddley usage from bootstrap
This commit is contained in:
parent
aedb7235f9
commit
ecda5e2cff
2 changed files with 10 additions and 3 deletions
|
|
@ -72,6 +72,14 @@
|
|||
; (macroexpand' x)
|
||||
; x)) form))
|
||||
|
||||
#+clj
|
||||
(defn clj-macroexpand-all [form]
|
||||
(riddley/macroexpand-all form))
|
||||
|
||||
#+cljs
|
||||
(defn clj-macroexpand-all [form]
|
||||
(throw-illegal "not implemented"))
|
||||
|
||||
#+clj
|
||||
(defn intern* [ns name val] (intern ns name val))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
(ns com.rpl.specter.macros
|
||||
(:require [com.rpl.specter.impl :as i]
|
||||
[clojure.walk :as cljwalk]
|
||||
[riddley.walk :as riddley])
|
||||
[clojure.walk :as cljwalk])
|
||||
)
|
||||
|
||||
(defn ^:no-doc gensyms [amt]
|
||||
|
|
@ -496,7 +495,7 @@
|
|||
;; &env is preserved in any potential nested calls to select (like via
|
||||
;; a view function)
|
||||
expanded (if (= platform :clj)
|
||||
(riddley/macroexpand-all (vec path))
|
||||
(i/clj-macroexpand-all (vec path))
|
||||
(cljs-macroexpand-all &env (vec path)))
|
||||
|
||||
prepared-path (ic-prepare-path local-syms expanded)
|
||||
|
|
|
|||
Loading…
Reference in a new issue