diff --git a/src/scittle/makros.cljc b/src/scittle/makros.cljc new file mode 100644 index 0000000..35d882f --- /dev/null +++ b/src/scittle/makros.cljc @@ -0,0 +1,17 @@ +(ns scittle.makros) + +#?(:cljs ;only cljs!! + (defn make-string [& vs] + (apply str "_cljs!_ " vs))) + +#?(:clj + (defmacro add-slash-makro [x y] + `(#'make-string "/ form: " ~(str &form) " env: " ~(str (:name (:ns &env))) " params: " ~x ~y))) + +;; needs to be both clj and cljs +(defn add-c-fn [form env x y] + `(#'make-string "c_form: " ~(str form) " c_env: " ~(str (:name (:ns env))) " parms " ~x ~y)) + +#?(:clj + (defmacro add-c-makro [x y] + (add-c-fn &form &env x y)))