13 lines
337 B
Hy
13 lines
337 B
Hy
(defmacro thread-set-ab []
|
|
(defn f [&rest args] (.join "" (+ (, "a") args)))
|
|
(setv variable (HySymbol (-> "b" (f))))
|
|
`(setv ~variable 2))
|
|
|
|
(defmacro threadtail-set-cd []
|
|
(defn f [&rest args] (.join "" (+ (, "c") args)))
|
|
(setv variable (HySymbol (->> "d" (f))))
|
|
`(setv ~variable 5))
|
|
|
|
(defmacro test-macro []
|
|
'(setv blah 1))
|